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If you have a problem that can be solved by a computer— we have a systems solution. 

# Two central processors with maximum RAM capacities of 56K and 384 K bytes 

# Three types of disk drives with capacities of 175K, 1 .2M and 16M bytes 

# Two dot matrix printers with 80 and 132 line capacity 

A Selectric typewriter interface and a daisy wheel printer 

Match these to your exact need, add one or more of our intelligent terminals and put together 
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Southwest Technical Products systems give you unmatched power, speed and versatility. They 
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TSC 
BASIC 
for 6800 



The fastest floating point BASIC for any micro. 



Move over 6502! Out of the way 8080! The 
fastest floating point BASIC for any micro now runs 
on the 6800. And with the TSC name, you know it's 
top quality. 

TSC BASIC is not only fast, but complete with 
over 50 commands and functions. Features 
include six digit floating point math, full 
transcendental functions, unlimited string 
length, if/then/else construct, logical 
operators.and two dimensional 
arrays (including string arrays). 



Available now on KCS 
cassette for $39.95. 
Requires 9K minimum* 
no source listing 
included. Soon to 
come is a version for the 
FLEX T " disk operating 
system. 
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(51 @KI®OT/POWER 

BOARDS for ALL COMPUTERS, or COMPLETE TURNKEY 

SYSTEMS using Our Real Time 
Software and 

Computer System 

INTERFACE your Computer 

to the Real World with 

GIMIX Relay 

Driver Boards. 




CONTROL 31 

Separate A.C. Circuits 

(20 amps max. each) 

for UNDER $28 PER CIRCUIT 

Includes: Relay Driver Board, Bracket. Transformer, and 
3 1 GE RR.8 Relays. Assembled and Tested with Documents- 
ton and Software Driver Routines. *848 05 



Relay Driver Boards Only 
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INTERFACE the Real World to your Computer with GIMIX 
OPTO-BOARDS and REMOTE KEYPAD SYSTEMS: 

OPTO-BOARDS Connect One 8 Bit Parallel I/O Port lo as many as 
34 Outside World Switch Closures (e.g. doorbells, eyes) with: 1500 Volt Isola* 
tion, built-in contact debounce, on board scanning and buffer. 

REMOTE KEYPAD SYSTEMS 

Provide Remote Data Entry for Computer 
Systems or Directly Control One RELAY 
DRIVER BOARD or STEREO 
SYSTEM CONTROLLER. 

6800 SS 50 BUS 
16K SYSTEMS 

from *1294 29 

Ircfaatet: Mam (frame cabinet* n*Afit* toand. power 
»4?*y. fan. CPU 16K italic RAM. a*J eltotce of 
lOtotf. 

OthH package Mvaadtao- 

^28^ Wt' woukl lik-e lo call your alti*n fSjpr. 
■j^ lion to the June 1979 issue d ^ 
"£* Interface Age Magazine, h will ^ 
4*"- conialn an article about GIMIX ,2 
^^ and go into mod? detail about our ^ 
Z£L GHOST Power Control 3f 

'%fj Syslem lhan we can in ?nK wtjjf 



Connects to any Com- 
puter through a 20 ma. 
current loop (up to 4 Boards 1 28 
Relays per poit.) Reporte the on/off 
status of each relay on demand. 

16K Static RAM Boards 
for the SS-50 Bus 

MORE FEATURES: 

• Gold bus connectors 

• 4 separate 4K Blocks 

• Individual Addressing 
Write Protect, and 
Enable/Disable for each Block 

• Tested at 2MHz 

AT A LOWER PRICE 

ASSEMBLED *298 13 

As above 

with 

Sockets 

and 

Software 

control 

features. 

ASSEMBLED 

»368 16 

THAT'S VALGE! 
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The Company that delivers. Quality Electronic products since 1975, 

1337 WEST 37th PLACE • CHICAGO, ILLINOIS 60609 
(312)927-5510 • TWX 910-221-4055 

W/9 GiMIX \HC 
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DSD P/R-32K $27.00 

32K or 16K EPROM & RAM memory card. 
271 6 2K x 8 or 2758 1 K x 8 5V only EPROMS. 
TMS4016 2Kx8orMK4118 1Kx 8 5V RAMS. 
Up to 4 independent addressed 8K blocks. Dip 
switch or jumper selected. Size 9" x 5V2" 

*>* -7 11111111 
Q»!«!!iiiiii. 

„Mi»wMm * < ^~. ■ ■ ■ ■■■* ■ ■ . 

DSD 21 14-16K $27.00 

Full Static 16K Ram memory card designed to 
use the 21 14 or TMS 4045 1024 x 4 Static Ram. 
The card has two independent addressed 8K 
memory blocks. Card size 9" x 5V2". Power 
requirements 7-8V unreg. @ 3.5A. 

DSD U P 6255M $14.00 

Universal parallel interface card with wire wrap 
area using INTEL'S 8255 parallel peripheral 
interface chip. 24 programmable I/O lines. 
(Three 8 bit Ports or Two 8 bit Ports with hand- 
shaking) Card size 5V2" x 5" Standard SS-50 30 
pin I/O BUS. 5V only. 

Cards are bare with data and edge connector. 
Ohio residents add 4 1 /2% sales tax. 

*6847 Color Graphic card in design* 



EPROM PROGRAMMER 
Model EP-2A-79 




iOHYVARL AVAILABLE FOR ft, 8060. 6000 
A00V l-QQ. 6502, KlM.t, 160/ 2650 
I F'KOM <yf>* k rtki ln<l by 4 pw wnjliiy module 
*vluch ptufo into Ihf front ol the prtgr^mmer 
Powfi requite, hen H jre 115 VAC. $0/60 HZ 41 )$ 
wjtti It i» tujjphrd wilh j lb inch ribbon <jhl* 
U*» f«nn«hnn lo oncfocomput^r R<>quitri tV> 
I/O pom Prk«f<J it SI 55 with one *el of 
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Optimal Technology, Inc. 

Blue Wood 127. EaHysville, VA 22936 

PHone <8M) 973-S462 
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EPROM PROGRAMMER 
BREAKS FOR ITBELR 




AsMmolMl. 
burned In and 
leate* 



B-00 EPROM Programmer 5 09.95 

regulateO 4 12* $104*5 

waroeuimiy«h SpaOm t &M 

All ioilwere routines *>ece§a*ry IP last. burn. v«*k1y and c0pV 27089 kiBlnO tr»e 
fl 06 Programmer 

DIPT. K, P.O. IOX 1110. OIL MAR, CA 92014 (714) 756 2687 
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for FLE X* users; 

LOOKUP 
a data manager 



•» SIHf»LE, £ASY TO USE 

♦ CREATE, FIND, ADD, LIST, AND DELETE DATA 

RECORDS 

♦ FREE FORM DATA DEFINITION 

♦ FREE FORM JJATA INOUIRY 

♦ CATA FILES NAY jlfc EDITED OR USED FROM BASIC 

♦ RUMS IN HIM 1*0* SYSTEM 

♦ INCLUDES MINIDISK, FULL INSTRUCTION BOOKLET, 

AND WARRANTY 

♦ COMPLETE WITH FREE INDEX TO AU 6300 ARTICLES 

FOR 1NOUIRY FROM II SK 

♦ FLEX VERSION 2 SUPPORTED 



MVCROFTWARE SYSTEMS 

P. O. BOH 1 138 

BT, CHARLES MO. E3301 
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Qlve you/ 6600 computer ihe glfl of elghll 
The Micro Works Olgl^eclor* openeupa 
wlwie new world (or your computer. Your 
micro can now be i part ol the ecllon. 
leKIng pictures like 1hl» one lo tmuse 
your frlende, watching your home while 
you're eway. helping your houftahold 
robot avoid bumping Into wtllt r providing 
faat to elow seen corwarelon (or you heme 
. the •pphcationa abound 

The Micro Workt Dlglaector le a compteleiy unique device, lie resolution end 
*0*QC are unmatched In Induttry and Ihe prtce le unbailable anywhere. The 
Oiglaector aod a cheap TV camera are all you'll need to eee eye lo eye with your 
6600 Sinceope/ationleslratghltOAKard.youdon'ihevelobeaaoMware wizard lo 
utilize Ihe Dtgluctore extensive capabitniee, TT* Mfcro WorKa Dtgltoclor board 
provide* Ihe following exclusive fealuies: 

• High Resolution — a 256 x 256 picture element acan 

• Precision — 64 levels ol grey scale 

• Speed — Conversion times a* low at 3 microseconds per pl»01 

• Versatility — Accepts either Interlaced (NTSC) or non.lnlerlsced (tndualrlal) 
video input 

• Compactness — UtHiiat 1 I/O alot In your SVVTPC 6600 or equivalent 

• Economy — The Ofgiaeclor la a professional tool priced (or Ihe hobbylsi 

The Olglsector (0548}. like all Micro Works products, cornea fully assembled, 
lesled and burned In. Only Ihe highest quality components a/» uaed, and the 
boards are double elded with plsled Ihrough holes, solder maah and allkscraen 
All software la lully source Haled and commented The Micro Wcvka la proud lo 
add Ihe OS-66 to Ita line of quality computer accessories for Ihe hobbylal. 
Prke 16995 

Wrlle or call lor Inlormatlon on olher quality 6600 products, including computer 
portrail systems 
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OIL MAPI, CA BB014 f7l4j 7DB-BBB7 




• Record and playback at 120, 
60 or 30 self- do cktng bytes per 
second (extended Kansas City 
Standard) 

• 1200, 600 or 300 baud data 
terminal interface 

• Dual cassette operation 

• Compatible with SWTPC cas- 
sette software 

• Optional kit permits program 
control of cassettes 

• Optional adaptor permits inter- 
facing with any computer 



Upgrade your SWTPC 6800 system to 1200 baud with 
PerCom's CIS-30 + dual-cassette/terminal interface 



The CIS-30+ . . . four times as fast as SWTPC's AC-30 with the same dual- 
cassette capability . . . plus a 1200-baud data terminal interface ... in a SWTPC 
color-compatible package that's only 1/10 the size of the AC-30. 

Dependable? The simplicity of Harold Mauch PerCom Data designs says more 
than any well-chosen words. Simply put, for only $79.95* you get the fastest, most 
dependable dual function interface you can buy for your SWTPC 6800. 

To order or request literature calf Percom toll-free 1-800-527-1592. 

PerCom 'peripherals for personal computing' 



PEFGOM 



PERCOM OATA COMPANY. INC, 

DEPT OB 
211 N KIR BY. GARLAND. TX 7 60«2 
I214)27?<3421 

•Kit price. Assambed and lasted: 

$99.95 + shipping 

5% Ijuc SAC & MC avmlabto 



shipping Tex. res. add 



'68' Micro Journal 



CRUNCHERS 
CORNER 



Conducted by 
Jack Bryant 



Questions and comments submitted to this 
column can be on any subject relevent to 
"nianber crunching j " and should be 
addressed to: 

Jack Bryant 

Department of Mathematics 
Texas A&M University 
College Station, Texas 77843 

We ask that all correspondents supply 
their names and addresses . 

MORE INTEGER ARITHMETIC 

In earlier columns, we introduced 16 
bit two's complement integer arithmetic. 
A "package" of fundamental subroutines, 
including division with remainder and 
I/O conversions, was coded in M6800 
assembly language. Also included was a 
very simple program to illustrate and 
test the subroutines. In this month's 
column, we have three closely related 
goals: to clean up a loose end in the 
test program, to point out that last 
month's program evaluates expressions in 
a very nonstandard fashion, and to show 
how last month's package can be developed 
into an Indexed integer arithmetic 
package. Let's start with the last. 

We begin by pointing out the main dis- 
advantage to accumulator arithmetic. 
Suppose we want to use subroutine ADDI 
to add two numbers, say in page zero 
memory locations with assembly language 
names 0PR1 and 0PR2, and we wish the 
result to end up in 0PR1 . Since this is 
the main program, we can assume that the 
index register is available, and we code: 



LDX 


0PR1 


STX 


I 


LOX 


OPR 


STX 


M 


JSR 


A I 


LOX 


I 


STX 


0PR1 



ADD 


A 


STA 


A 


LOA 


A 


ADC 


A 


STA 


A 



This segment requires 15 bytes. We could 
better have written 
LDA A 0PR1 + 1 

0PR2+1 

0PR1+1 

0PR1 

0PR2 

0PR1 

which requires only 12 bytes and is even 
faster than ADDI. The problem in using 
ADDI is moving the parameters (the con- 
tents of 0PR1 and 0PR2) to the software 
accumulators and back. The simplest but 
not always the best way out of this prob- 
lem is to have no software accumulators 
and to maintain a stack of operands. 
{Another method is to make the arithmetic 
functions honest subroutines with para- 
meters being passed using the stack 
pointer and indexed addressing. Much 
more on this later.) For the present, 
let's consider only the use of the index 
register to maintain the operand stack. 

ABSOLUTE ATA 

ADDRESS UM,M 

n INDEX + MS BYTE\ 
n+1 LS BYTE/ 0PR1 

n+2 MS BYTE\ 
n+3 LS BYTE/ 0PR2 
In this situation, the following subrou- 
tine ADDIX will replace (0PR1) with 
(0PR2)+(0PR1), and it can be called effi- 
ciently. 
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ADD IX LOA 


A 


i.x 


ADD 


A 


3,X 


STA 


A 


l.X 


LDA 


A 


O.X 


ADC 


A 


2.X 


STA 


A 


O.X 


RTS 







The user does nnt have to be concerned 
with the absolute address of the 
operands, nor with tedious in-line coding. 
However, a new orientation must be taken: 
namely, the operands are now managed using 
the index register, and binary operands 
now refer to the most recent two operands. 
To realize this, another keyword is 
required which operates somewhat like 
[ENTER*] does on some hand held calcu- 
lators (most notably, those of Hewlett- 
Packard) . 

Before going on, we should note that 
ADDIX takes roughly twice as long as 
ADDI; however, for more complex opera- 
tions the difference between indexed and 
absolute addressing is relatively much 
less, and indexed addressing often re- 
quires less memory. As a general rule, 
expect to give away about twenty percent 
in time and save ten percent in memory 
when using indexed addressing. 

AN INDEXED OPERAND STACK 
The M6800 has a real stack, used for 
subroutine linkage and for the management 
of interrupts. What we mean by an in- 
dexed stack is an area of RAM which is 
managed like a real stack, but using the 
index register. Two variables are needed 
to manage the stack for our purposes: 



TOPSTK The top of the stack 

CURSTK The present pointer to the 
last two operands in the 
stack. 
The size of the stack is limited only by 
how much memory is devoted to it. 
Operands enter the stack from the bottom, 
and are eliminated following an arithme- 
tic operation. Binary operations elimi- 
nate the lowest operand on the stack and 
increment CURSTK to point to the present 
lowest. Unary operations replace the 
lowest by the result of the operation. 
(This is quite different from the 
algebraic approach taken before.) Before 
either type of operation, the eliminated 
operand should be saved so that some 
command can be used to retrieve it. 

What seems to be evolving here is 
similar to the evaluation of an expres- 
sion written in Polish notation {so 
called because it was developed by the 
Polish logician J. Lukasiewicz). In 
ordinary Polish notation, the operators 
preceed the operands. This is unnatural 
for hand entry of an expression. In 
reverse Polish, the operands preceed the 
operators. In a Hewlett-Packard calcu- 
lator, instead of entering an algebraic 
expression such as 1+2- , one enters 
1 [ENTER *] 2 * . The [ENTER f] key is 
used as a delimiter between operands 1 
and 2. What makes this method so effec- 
tive is the stack is now prepared for 
another operand and for another operator. 

Any expression in algebraic notation 
can be translated into reverse Polish and 
contariwise. The interested reader may 
wish to try a few: in these examples, we 
let the operands be denoted by single 
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alphabetic characters (A,B,C,...) and 
consider only the four basic binary 
operators. (Others will be added later.) 
Examples: 

Algebraic Reverse Polish 

1. A*(B+C) ABC+* 

2. {A+B)*C+D AB+C*D+ 

3. A+Y*(B+Y*(C+Y*(D+Y*E))) 

AYBYCYDYE*+*+*+*+ 
Exercises: 

4. A+B*C 

5. A/8~C*D 

6. A+(B+C*D/(E-F)) 

Example 3 is the evaluation of a fourth 
degree polynomial after it has been 
nested (i.e., using Horner's method). 
Note how much simpler the Polish expres- 
sion is. 

A Polish expression is much more easily 
evaluated than an ordinary one. The list 
of operands and operators is scanned left- 
to right; when an operator (binary or 
otherwise) is encountered, the arguments 
for the operator are the Immediately pre- 
ceeding operand stack elements. A binary 
operator requires two. The operator is 
evaluated, and all operands replaced by 
the evaluation. (This reduces by 1 the 
total number of operands for a binary 
operator. ) 

Before we consider how this can be 
coded, let's look at something strange 
about last month's approach. It is also 
related to the evaluation of expressions. 

Suppose, in last month's program, one 
entered the string: 

12345/5-1000N*2A [RETURN] . 
Essentially instantly, 2938 is printed or 
displayed. It is instructive to examine 



the contents of I and M as this evalua- 
tion progresses: 

I M OPR 

12345 5 / 

2469 1000 

1469 N 

^1469 2 * 

-2938 A 
2938 + displayed 

Although the intent of last month's 
program was to allow notation in the 
test which was somewhat like ordinary 
algebraic notation, we neither allowed 
parenthesis nor recognized the dif- 
ferent heirarchy which the various 
operations enjoy in usual notation. We 
will seriously address this problem in 
later columns. 

IMPLEMENTING AN OPERAND STACK 
The rules for managing the operand 
stack are implied by the rules for the 
evaluation of Polish expressions. In 
this implementation, we begin with 
(CURSTK) * (TOPSTK), with a certain 
number (say 10) bytes being reserved for 
the stack work area below actual oper- 
ands. 

The stack starts at (TOPSTK) and is 
Increased in size when operands are 
placed in it. For example, suppose we 
reserve 20 bytes for the stack (allowing 
5 operands to be stacked before any 
binary operators are applied). 
Suppose the stack begins at location 
$200. Then the actual configuration of 
the stack initially and after the entry 
of numbers 8, -1, 10 and 256 is as 
follows: 
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cation 


Initial 


Stack 8 


Stack -1 


Stack 10 


Stack 256 


(hex) 












200 


T.C-00 


T.O00 


T - 00 


T - 00 


T - 00 


201 


00 


00 


00 


00 


00 


202 


00 


00 


C - 00 


00 


00 


203 


00 


08 


08 


08 


08 


204 


Work 


Work 


FF 


C - FF 


FF 


205 
206 


Area 


Area 


FF 
Work 


FF 
00 


FF 
C ^00 


207 






Area 


OA 


OA 


208 








W. k 


01 


209 








Area 


00 


20A 










Work 


208 










Area 


20C 












20D 












20E 












20F 












210 












211 












212 












213 













Consider now the sequence + , +, 



ABS of operands: 



Location 


After + 


After + 


After - 


After ABS 


(hex) 










200 


T - 00 


T + 00 


T,C->00 


T.O00 


201 


00 


00 


00 


00 


202 


00 


c ■*■ 00 


FE 


01 


203 


08 


08 


FF 


01 


204 


C * FF 


01 


Work 


Work 


205 


FF 


09 


Area 


Area 


206 


01 


Work 






207 


OA 


Area 






208 


Work 








209 


Area 









If a binary operator is encountered with (TOPSTK) * (CURSTK), perform the 
operation as usual, except, following the operation, move the result to 
(T0PSTK)+2 and do not decrement (CURSTK) by two. This feature allows the 
user to believe there is an infinite stack, initially all zeros. When 
operands are being entered, check for the stack being full (as it became in 
this example), and take care to not overflow the space provided. 

In next month's column, we implement these ideas in an enhanced version 
of the integer arithmetic package which now expects reverse Polish entry 
order. This program also contains other enhancements of the integer 
arithmetic package. One of them is this month's program, discussed next. 
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LOOSE ENDS IN BANG 
The purpose of most of the logic in 
BANG was to decode a one byte operator 
and branch to the appropriate routine. A 
typical segment was coded: 
CMP B #$2B + 
BNE SUBQ 
JSR ADDJ GO ADD 
BRA BANGN 
SUBQ CMP B #$20 - 
This takes 8 or 9 bytes per keyword 
(operator). It is an easily understood 
method, but hardly elegent. A fancy way 
to branch according to a keyword (from a 
one byte table) involves the simple table 
lookup subroutine LOOKUP: (see Listing 1) 

One can see that this table lookup 
method requires subroutine LOOKUP (which, 
except for the user error routine jump, 
is relocatable and reentrant) to be 
present only once for all such table 
search operations. Only 7 bytes plus 
three bytes per table entry are needed. 
Since we are processing 7 operators in 
BANG, we require 20+28*48 bytes and get 
routine LOOKUP free. This is less than 
the 60 bytes required by the simpler 
coding in the first version of BANG. 
Since LOOKUP is reentrant, if can 
(indirectly) call itself. This feature 
could be used when some keywords have 
two byte length. An example of this 
situation is the program by which the 
flow charts seen in this column are 
prepared. Host of the keywords are two 
bytes in length. For example: 
DE a decision box 
DI a disk box 
DO a document box 
Keywords are processed as follows: with 



the first letter (in this example, 'D'): 





LOX 


#FIRSTT 


LOAD FIRST LTR TABLE 




JMP 


LOOKUP 


DECODE 


FIRSTT 


1 ■ | 








FCB 


'0 


KEYWORD "D" 




FOB 


DFIRST 


ADDRESS OF ROUTINE 


DFIRST 


• * * 

JSR 


INEEE 


GET NEXT BYTE 




TAB 




SAVE IN ACCB 




LDX 


#DSEC 


LOAD SEC LTR TABLE 




JMP 


LOOKUP 


GO DO IT 


DSEC 


FCB 


'E 






FOB 


DECISN 






FCB 


'I 






FOB 


DISK 






FCB 


'0 






FOB 


DOCUHT 






FCB 








The routine DECISN also uses LOOKUP since 
it requires further input (to show which 
arms on the decision box are desired). 



Answers to Exercises: 




Algebraic 


Reverse Polish 


4. A+B*C 


ABC*+ 


5. A/B-C*D 


AB/CD*- 


6. A*(B+C*0/(E-F)) 


ABCD*EF-/+* 


* SUBROUTINE LOOKUP 

* 



* ENTRY: X POINTS TO THE KEYWORD-BRANCH 

* ADDRESS TABLE. ACCB CONTAINS 

* THE ONE BYTE KEY. 



* EXIT: IF FOUND, A JUMP TO THE ADDRESS 

* FOLLOWING THE HATCH IN THE TABLE 

* IS EXECUTED. IF NOT FOUND, A JUMP 

* TO ERROR ROUTINE USRERR WITH ACCA 

* CONTAINING 01 IS EXECUTED. 



LOOKUP LDA A 0,X LOAD KEYWORD 
BEQ TABEND TEST IF END 
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CBA 






BEQ 


FOUND 




INX 






INX 






INX 






BRA 


LOOKUP 


FOUND 


LDX 


1,X 




JMP 


0,X 


TABEND 


INC A 
JMP 


USRERR 


* 







SEE IF MATCH 



SKIP PAST ADR 



MATCH: LOAD ADDRESS 
AND BRANCH 
SHOW ERROR CODE 1 
FOR RUNNING OUT TBL 



Now, If you Chink I*a going to deface ehia aagesine 
by cutting out your aubacrtption coupon, you're wrong!. 
I hops you can accept thli Letter in liev of your foro. 

Pleaee enter »y charter two-year fubecrlptlon at 
Charge It co »y VISA account Muaber 



If It la poaalbla, Bend •* the firet leaue Volume I 
Leaue 1, February to go with my c nil ting March/April 
laauo and rush laaua 1, Hay mm aoon a J it la off Che 
preeses. 

By the way, by corapllawntf co Mickey Ferguson. 
Hie article on Hie CT-B2 Terminal haa told bm sore 
than dehor Kilobaud or SWTPC theeieelves. 



* EXAMPLE TABLE FOR BANG 



BANGTA 



FCB 


' + 


ADDITION 


FDB 


ADDI 




FCB 


1 • 


SUBTRACTION 


FDB 


SUBI 




FCB 


»* 


MULTIPLICATION 


FDB 


MULI 




FCB 


7 


DIVISION 


FDB 


DIVI 




FCB 


'R 


REMAINDER 


FDB 


REMI 




FCB 


'A 


ABS VALUE 


FDB 


ABSI 




FCB 


'N 


NEGATION 


FDB 


NEGI 




FCB 





ZERO TERMINATOR 



* EXAMPLE USAGE 

• 

* ASSUME ACCB CONTAINS THE OPERATOR 

• 

LDX 0BANGTA LOAD TABLE START 
JSR LOOKUP ALL ROUTINES ARE 
SUBROUTINES. 



Listing 1. An example of a table lookup 
program which can shorten last month's 
program BANG. 



LETTERS 



Cordially, 



pL/C/V 



■!<*•«■ IJrrkoa*. \t« 



Southwest Technical Products Corporation 



*ie* Hk.fi*av 

Tmm 71711 



joha ft cm 



Pear Editor. 

dfc Mold like to point out to all utrri of our ayetea thac the 
Jlory printed In thr l«C*»l la*uc of (900 BITS la very Misleading 
and etould be rlearlfl<4. 

Copy of paragraph la encloaed. 

Tlila alory if«M to Jftpjy that (Hit i Inch floppy rflak ayaeaee are 
not ueebla with oar computer ayatea. and that even If you (Mnag* lo 
f,el the clock *pe«d uP to 1.6 Kill it Mill will dot work becau.c our 
J2 X maaorlaa ulll not cycle thie fait. 

What la not aaotlorted 1* thai the dl.k ayetea referred to la not 
th* South***! Technical tfodurte OHF-l *l*M Inch dl4k ayetea, but 
the Snolce Signal Broeicaatlna eljlhl Inch dl»* ayettai. Our WM 
vill work Juat floe with all txlatlnl; 6800 coaster eyaceaa. It 
ueaa a BMA controller that wilt properly Interface the I loppy «Jlek 
to ay ate** running at BiO to 120O KHa aa aoei do. the Saelte 
SiftMl diak ayetea ue»a a !«.* eUVn.lvc controller dual in that la 
alatlar to the technique coeatonly ueed with alnl-drlvea in whith 
the Vtpctt**r handle* the (nforeation eoaln£ In t row the dlak dirndl*. 
7tot* 1* fine with nlni-drive*. hut an eifthi Inch drive tepuea 4ata 
to fa.»i for a Proceaaar operating at 1,0 HH* or ao co h*tp up. The 
solution u«ed In the SeOfc? Signal <lrlv. la to operate tb* Bfuceaaaf 
at l.t KHk alnlsum. The fact that thla nakca It Ueooanuible wlih 
ao»t M3QC CPU 'a out the a In tfae world i* n.Ver aenllorted In any 
literature, or ad chat I have eetm. 

SouchwdAi Technical Product* hel alwaya tried to wake new 
esul|iaant aa coopatlble aa poaalbla wlih nr.vloue dealsn* and to 
fuki utpf. r*d«a peantbla whera l>rac<t<4ll r We wpuld UKe to art the 
record •trclght In thr above ito y ■■ lo exactly whore tha p oblee* 
aid tncoosacabf I lttai originate* 



SLat«T*1y» 

Denlel Heyar -Free. 

A STAFF REVIEW 
The 68 Micro Journal Lab 



April 21, 1979 

'66' Micro Journal 
3016 Hamlll Road 
MtKBon r TV 97343 

Attention: Joyce Willlaaia 

Dear Slra: 

Juat received a (coaiplLnentary?) laaue of '66' 
Micro Journal Volume 1* laaue 2, jute In the rick of 
Cleia. I waa Juat about to awlecti Co 6502 -baaed Ohio 
Scientific aa I've (Ivan up on crying to upgrade (he 
Heath £7-3400 Trainer — their (anally'.) announced 
expenalon kit atlll *on r t get tae any cloaar to »inU 
floppy configuration which la my ultimate goal. 



llie JPC Products Model TC-3 cassette 
Interface is rather unique. It uses only 
five integrated circuits (including the 
voltage regulator) on a single glass-epoxy 
circuit board. It plugs directly into the 
1/0 bus on an SS-50 computer. And it 
provides a VERY RELIABLE means of saving 
programs and data to tape at bit rates up 
to 4800 baud. The TC-3 even includes 
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provision for Automatic motor control for 
1-8 drives. Although three drives Is 
really a practical maximum. The TO 3 
cassette Interface sells for $49*95 from 
JPC Products, P.O. Box 5615, Albuquerque, 
New Mexico 87185. JPC Products also 
offers a cassette operating system for use 
with the TC-3 for $19.95 additional. We 
will be considering the TC-3 cassette 
Interface and the CFM/3 cassette operating 
system as a single product. This Is 
because we feel the average person should 
consider them as a single product, which 
sells for sixty nine dollars nlnty cents. 

The most Impressive thing about the 
TC-3 Is the overwhelming amount of 
documentation. There are twenty-five pages 
of documentation with the TC-3 and an 
additional fifty-nine pages with the 
CFM/3. In addition to the basic assembly 
Instructions, schematics, etc* which we 
expect to find In a product of this kind; 
there Is a section on tape recorders which 
makes several recomty>endatlons on the 
selection of a recorder for use with the 
TC-3. The CFM/3 documentation Is really 
easy to use because the name of the 
command being described Is printed In 
letters 1/2 Inch high at the beginning of 
the discussion. This makes It very easy 
to find the command you are looking for*i 
We should also mention that fully anointed 
listings of all programs & patches are 
Included as part of the documentation. 

The basic TC-3 cassette Interface 
Includes a set of utility driver 
subroutines. Also Included Is a subroutine 
that allows MIKBUG format Kansas City 
standard tapes to be loaded. You could 
write a complete cassette operating system 
around these subroutines. Hut why bother? 
The CFM/3 Is a complete cassette operating 
system. With the CFM/3 operating system, 
you get patches for SWTPC BASIC, SWTPC 
CORES editor/assembler, the TSC editor, 
and TSC assembler. The patches allow you 
to save and load named files through the 
CFM/3 file manager. It would be fairly 
easy to modify BASIC for data files 
through the file manager, too. But you 
are on your own there, JPC Products does 
not provide the necessary patches for 
that. 

* 

In use In the 68 Micro Journal lab, we 
have found the TC-3 (with CFM/3) to be 
both fast and reliable. More reliable 



than our National Multiplex CC-8 digital 
recorder at 4800 baud, In fact. With the 
CFM/3 operating system the TC-3 Is very 
convenient to use. Considering the TC-3 
cassette Interface without the CFM/3 
operating system. It earns a 68 Micro 
Journal lab rating of AA. The hardware Is 
excellent, but the driver subroutines are 
a bit Impractical to use without some 
additional software to tie It all 
together. Considering the TC-3 and the 
CFM/3 together as a single product, the 
rating must be AAA. Rated AAA because It 
Is an excellent low cost alternative to a 
floppy disk system for the person on a 
tight budget. 



MEF 

BASIC PROGRAMMING 
QUICKIES 



Dtvtd_E*aJ« 

. Garland Way 
Lake-wood, CO 80227 



3330 S. Garland Way 



Two roiitintt for SUTPC BASIC, Version 2.3. 

9010 ftEft ARC-COSINE SUBROUTINE 

9020 REN C'ARC COS(X), RADIANS 

9030 REN -1 <X Cfl 

9040 P0»3. 14159265 

9050 IF X«0 THEN C*P0/2: RETURN 

9060 IF ABS <X> >*1 THEN C*(1-SGN <X))*P0/2: RETURN 

9070 C= ATAN (S0R< 1 -X*X)/X)+(1-SGN <X))*P0/2: RETURN 

8000 REN ARC-SINE SUBROUTINE 

6010 REN S'ARC SIN(X), RADIANS 

8020 REN -1 IX <+1 

8030 P0*3. 141 59265 

8040 IF ABS (X) >* 1 THEN S»SCN <X)*P0/2: RETURN 

8050 S=ATAN <X/SQR( 1 -X*X) ) : RETURN 

SubftitUd byi David Eaglt 

3330 S. Garland Way 
Laktwood, CO 60227 
303-965-5049 



LOCATE (UPDATE) 



Cfennii Womock 
Rt 4, 109 Foatar Dr. 
RfciOfloM. OA 30736 



It was back last August, when Don 
Williams proded me into writing a program 
called FILES. I had just Installed a 
SWTPC MF-68 minifloppy on an AMI EVK 6800 
computer for my employer. Because of the 
differences in the monitors, I needed to 
know where the new MINIFLEX operating 
system was going to go in memory. The old 
FDOS had a command called FILES which 
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would list the directory of files. Each 
file's starting address, ending address, 
and transfer address was listed* Don kept 
saying, "I wish TSC had included a FILES 
command. Why don't you write one?" (That's 
the way he is.) My reply was always: "When 
you get me the 'Advanced Programmers 
Guide' , maybe I will." 

In August push turned into shove and 
the program was written. It had one bug. 
If the file did not have a transfer 
address record as the last record, it 
would not print the ending address of the 
last memory segment. Other than that, the 
new FILES. CKD would handle a segmented, 
binary format file correctly « An example 
of this kind of file is DOS. SYS, which is 
composed of many non-contiguous memory 
segments. FILES.CMD satisfied an immediate 
need and several people have received 
copies of it. 

As Don was gearing up to do 68 Micro he 
asked for an article on FILES.CMD. The 
bug was corrected and a 
written to accompany the 
After some thought, 



small article was 

source listing. 

the program was 



renamed LOCATE .CMD. The new name seemed 
to make more sense than FILES , 

One day after the article had been 
submitted, Don called. "Guess what? I've 
got another LOCATE* What do you want to 
do?" Robert Pigford's article was more 
tutorial, so Don decided to run it. 
Robert's article was great « Later, while 
reading his article, I realized he was not 
handling segmented, binary files. I am 
not being critical. His program probably 
does exactly what he intended. Segmented, 
binary files are created when you: 

1. append two or more binary files, or 

2. segment an assembly language program 
(ie: with RMB's). 

The irony of it all, is that two 
people, independently, used the same name 
for a program, which did nearly the same 
thing. Truth is stranger than fiction. . , 

I am not going to discuss how FLEX 
handles files. Read Robert Pigford's 
LOCATE in the last issue for that. Better 
yet, buy the "Advanced Programmer's 
Guide 1 *. What follows is a description of 
how segmented, binary files are handled. 

LOCATE functions by opening the 
specified file for read, and then reading 



the file record by record. As each record 
is read, the program decides how to handle 
it. Transfer addresses are saved, and a 
flag is set to indicate there is a 
transfer address for the file. When a 
binary record is read, it is determined if 
this record is contiguous with the last 
binary record. If it is not, then the 
starting and ending addresses of the last 
contiguous segment are printed and a new 
segment is started. When the end-of-file 
error occurs the program finishes by 
printing the starting and ending addresses 
for the current segment. It then prints 
the transfer address, if any. To use this 
utility simply type "LOCATE (FILE SPEC)". 
Happy hunting. 



NAM 



LOCATE 1/27/79 



** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

** 



LOCATE UTILITY 

THIS PROGRAM READS A BINARY FILE AND 
LISTS EACH SEGMENT OF MEMORY LOADED. 
THE ULTIMATE TRANSFER ADDRESS (IF ANY) 
IS ALSO LISTED. 

TO USE: 

TYPE "LOCATE, (FILE SPEC)" 

WRITTEN BY DENNIS WOMACK 
COPYRIGHT JANUARY 27 f 1979 
ALL RIGHTS RESERVED 



* ROUTINES USED FROM MINIFLEX 
* 



WARMS 


EQU 


$7103 


DOS WARM START ENTRY 


GETFIL 


EQU 


$7127 


GET FILF SPECS 


PUTCHR 


EQU 


$7112 


O/P AR 


PSTRNG 


EQU 


$7118 


O/P CRLF THEN STRING 


PCRLF 


EQU 


$711E 


O/P CRLF 


SETEXT 


EQU 


$712D 


SET DEFAULT EXT 


OUTHEX 


EQU 


$7139 


O/P 2 HEX DIGITS 


RPTERR 


EQU 


$713C 


REPORT DISK ERROR 


FMS 


EQU 


$7806 


FMS CALL ENTRY 


FMSCLS 

* 


SQU 


$7803 


FMS CLOSE ENTRY 



* FILE CONTROL BLOCK 
* 

FCB EQU $7740 



SYSTEM FCB 
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14 



37 










* 


LOCATE UTILITY 




38 










* 












39 


1000 












ORG 




$1000 




40 


1000 


20 


01 




LOCATE 


BRA 




LOCI 




41 










* 












42 


1002 


02 










FCB 




2 


VERSION NUMBER 


43 










* 












44 


1003 


BF 


11 


36 


LOCI 


STS 




STEMP 


SAVE CURRENT STACK REG 


45 


1006 


7F 


11 


28 






CLR 




TFLAC 


SET TA FLAG TO NO TA 


46 


1009 


CE 


77 


40 






LDX 




#FCB 


POINT TO FCB 


47 


100C 


BD 


71 


27 






JSR 




GETFIL 


GET FILE SPEC 


48 


100F 


24 


03 








BCC 




L0C2 


ANY ERRORS? 


49 


1011 


7E 


10 


D9 






JMP 




LOC 14 


YES, GO HANDLE 


50 


1014 


CE 


77 


40 


L0C2 


LDX 




//FCB 


NO, POINT TO FCB 


51 


1017 


86 


00 








LDA 


A 


#0 


SETUP .BIN 


52 


1019 


BD 


71 


2D 






JSR 




SETEXT 


DEFAULT 


53 


101C 


CE 


77 


40 






LDX 




//FCB 


POINT TO FCB 


54 


101F 


86 


01 








LDA 


A 


#1 


OPEN FOR REAP CODE 


55 


1021 


A7 


00 








STA 


A 


t X 


STORE IN FCB 


56 


1023 


BD 


78 


06 






JSR 




FMS 


DO OPEN FUNC 


57 


1026 


27 


03 








BEQ 




L0C3 


ERRORS? 


58 


1028 


7E 


10 


CB 






JMP 




LOC 12 


YES t GO HANDLE 


59 


102B 


86 


FF 




L0C3 


LDA 


A 


#$FF 


NO 


60 


102D 


A7 


3B 








STA 


A 


59, X 


INHIBIT SP COMP 


61 


102F 


BD 


71 


IE 






JSR 




PCRLF 


PRINT CRLF 


62 


1032 


BD 


71 


IE 






JSR 




PCRLF 


PRINT CRLF 


63 










* 












64 










* 


READ 


A RECORD 




65 










* 












66 


1035 


BD 


10 


EA 


L0C4 


JSR 




L0C17 


GET NEXT BYTE 


67 


1038 


81 


02 








CMP 


A 


#$02 


BYTE-2? 


68 


103A 


27 


14 








BEQ 




L0C6 


YES t HANDLE BINARY REC 


69 


103C 


81 


16 








CMP 


A 


#$16 


BYTE-$16? 


70 


103E 


27 


02 








BEQ 




L0C5 


YES, HANDLE TA REC 


71 


1040 


20 


F3 








BRA 




L0C4 


NO, GO GET NEXT BYTE 


72 










* 












73 










* 


TRANSFER ADDRESS RECORD HANDLER 


74 










* 












75 


1042 


BD 


10 


FB 


L0C5 


JSR 




L0C19 


GET NEXT 2 BYTES AS ADDR 


76 


1045 


FE 


11 


34 






LDX 




XTEMP 


ADDR IS IN XTEMP 


77 


1048 


FF 


11 


2A 






STX 




TADDR 


MOVE TO TADDR 


78 


104B 


7C 


11 


28 






INC 




TFLAG 


BUMP F1AG TO YES 


79 


104E 


20 


E5 








BRA 




L0C4 


GO READ ANOTHER RECORD 


80 










* 












81 










* 


BINARY RECORD HANDLER 




82 










* 












83 


1050 


BD 


10 


FB 


L0C6 


JSR 




L0C19 


GET NEXT 2 BYTES AS ADDR 


84 


1053 


FE 


11 


34 






LDX 




XTEMP 


ADDR IS IN XTEMP 


85 


1056 


FF 


11 


30 






STX 




BEGREC 


BEGINNING OF REC-ADDR 


86 


1059 


BD 


10 


EA 






JSR 




L0C17 


GET NEXT BYTE 


87 


105C 


B7 


11 


27 






STA 


A 


COUNT 


SAVE AS COUNT 


88 


105F 


4A 










DEC 


A 






89 


1060 


BB 


11 


31 






ADD 


A 


BEGREC+i 


ADD COUNT- 1 TO 


90 


1063 


B7 


11 


33 






STA 


A 


ENDRECfl 


BEGINNING OF RECORD 


91 


1066 


86 


00 








LDA 


A 


#0 


SAVE IT AT 


92 


1068 


B9 


11 


30 






ADC 


A 


BEGREC 


END OF RECORD 


93 


106B 


B7 


11 


32 






STA 


A 


ENDREC 




94 


106E 


BD 


10 


EA 


LOC 


JSR 




LOC 17 


READ REST OF RECORD 


95 


1071 


7A 


11 


27 






DEC 




COUNT 
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96 


1074 26 F8 






BNE 


L0C7 




97 


1076 FE 11 


2E 




LDX 


ENDSEG 




98 


1079 08 






I NX 






99 


107A BC 11 


30 




CPX 


BEGREC 


1+ENDSEG*BEGREC? 


100 


107D 26 08 






BNE 


L0C8 


NO, HANDLE AS NOT CONTINUOUS 


101 


107F FE 11 


32 




LDX 


ENDREC 




102 


1082 FF 11 


2E 




STX 


ENDSEG 


ENDSEG-ENDREC 


103 


1085 20 AE 






BRA 


L0C4 


READ ANOTHER RECORD 


104 






* 








105 


1087 7D 11 


29 


L0C8 


TST 


SKIP 




106 


108A 26 03 






BNE 


L0C9 


SKIP FIRST PRINT 


107 


108C BD 11 


06 




JSR 


L0C20 


PRINT BEG + END OF SEG 


108 


108F 7F 11 


29 


L0C9 


CLR 


SKIP 




109 


1092 FE 11 


30 




LDX 


BEGREC 




110 


1095 FF 11 


2C 




STX 


BEGSEG 


BEGSEG-BEGREC 


HI 


1098 FE 11 


32 




LDX 


ENDREC 




112 


109B FF 11 


2E 




STX 


ENDSEG 


ENDSEG-ENDREC 


113 


109E 20 95 






BRA 


L0C4 


READ ANOTHER RECORD 


114 






* 








115 






* END 


OF FILE 


HANDLER 




116 






* 








117 


10A0 BD 11 


06 


L0C10 


JSR 


L0C20 


PRINT BEG AND END OF SEG 


118 


10A3 7D 11 


28 




TST 


TFLAG 


TRANSFER ADDR? 


119 


10A6 27 12 






BEQ 


LOCH 


NO, SKIP TA PRINT 


120 


10A8 CE 11 


57 




LDX 


#MSG1 




121 


10AB BD 71 


18 




JSR 


PSTRNG 




122 


10AE CE 11 


2A 




LDX 


0TADDR 




123 


10B1 BD 71 


39 




JSR 


OUTHEX 


PRINT TA MSB 


124 
125 


10B4 CE 11 


2B 




LDX 


#TADDR+1 




10B7 BD 71 


39 




JSR 


OUTHEX 


PRINT TA LSB 


126 


10BA BD 71 


IE 


L0C11 


JSR 


PCRLF 


PRINT CRLF 


127 


10BD CE 77 


40 




LDX 


0FCB 




128 


10C0 86 04 






LDA A 


#4 


YES, CLOSE FILE CODE 


129 


10C2 A7 00 






STA A 


0,X 


STORE IN FCB 


130 


10C4 BD 78 


06 




JSR 


FMS 


DO CLOSE FILE 


131 


10C7 26 15 






BNE 


LOCI 5 


ERRORS? 


132 
133 


10C9 20 19 






BRA 


LOCI 6 


N0 f RETURN TO FLEX 






it 








134 






* ERROR HANDLER 




135 






it 








136 


10CB A6 01 




LOCI 2 


LDA A 


l t X 


GET ERROR STATUS 


137 
138 


10CD 81 04 






CMP A 


#4 


IS IT "NO FILE" 


10CF 26 OD 






BNE 


LOCI 5 




139 


10D1 CE 11 


38 




LDX 


#N0FST 


YES, PT TO MSG 


140 


10D4 BD 71 


18 


LOCI 3 


JSR 


PSTRNG 


0/P MESSAGE 


141 


10D7 20 OB 






BRA 


LOCI 6 


RETURN TO FLEX 


142 






it 








143 


10D9 CE 11 


45 


LOCK 


LDX 


0ILLST 


PT TO MSG 


144 


10DC 20 F6 






BRA 


LOCI 3 




145 






it 








146 


10DE BD 71 


3C 


LOCI 5 


JSR 


RPTERR 


REPORT DISK ERROR 


147 


10E1 BD 78 


03 




JSR 


FMSCLS 


CLOSE ALL FILES 


148 


10E4 BE 11 


36 


LOCI 6 


LDS 


STENP 


RESTORE STACK 


149 


10E7 7E 71 


03 




JMP 


WARMS 


RETURN TO FLEX 


150 






it 








151 






* GET 


NEXT BYTE ROUTINE 




152 






it 








153 


10EA CE 77 


40 


LOCI 7 


LDX 


#FCB 




154 


10ED BD 78 


06 




JSR 


FMS 


GET NEXT BYTE 


flfl 1 Mlcrn Inurnat 












1ft 









16 





155 


10F0 


27 


08 






BEQ 


LOCI 8 






156 


10F2 


A6 


01 






LDA A 


i.x 


GET ERROR STATUS 




157 


10F4 


81 


08 






CMP A 


0B 


IS IT EOF? 




158 


10F6 


26 


E6 






BNE 


LOCI 5 


NO, ERROR 




159 


10F8 


20 


A6 






BRA 


L0C10 


YES, GO HANDLE 




160 


10FA 


39 






L0C18 


RTS 








161 










* 










162 










* GET NEXT TWO 


BYTES FOR 


ADDR ROUTINE 




163 










* 










164 


10FB 


8D 


ED 




LOCI 9 


BSR 


LOCI 7 


GET NEXT BYTE 




165 


10FD 


B7 


11 


34 




STA A 


XTEMP 


XTEMP MSB-NEXT BYTE 




166 


1100 


8D 


E8 






BSR 


LOCI 7 


GCT NEXT BYTE 




167 


1102 


B7 


11 


35 




STA A 


XTEMP+1 


XTEMP LSB-NEXT BYTE 




168 


1105 


39 








RTS 








169 










* 










170 










* PRINT 


BEGINNING AND END OF SEGMENT ROUTINE 




171 










* 










172 


1106 


CE 


11 


2C 


LOC20 


LDX 


#BEGSEG 






173 


1109 


BD 


71 


39 




JSR 


OUTHEX 


PRINT BEGSEG MSB 




174 


HOC 


CE 


11 


2D 




LDX 


0BEGSEG+1 






175 


110F 


BD 


71 


39 




JSR 


OUTHEX 


PRINT BEGSEG LSB 




176 


1112 


86 


2D 






LDA A 


ff f - 






177 


1114 


BD 


71 


12 




JSR 


PUTCHR 


PRINT ,r - M 




178 


1117 


CE 


11 


2E 




LDX 


tf ENDS EG 






179 


111A 


BD 


71 


39 




JSR 


OUTHEX 


PRINT ENDSEG MSB 




180 


HID 


CE 


11 


2F 




LDX 


#ENDSEG+1 






181 


1120 


BD 


71 


39 




JSR 


OUTHEX 


PRINT ENDSEG LSB 




182 


1123 


BD 


71 


IE 




JSR 


PCRLF 


PRINT CRLF 


* 


183 


1126 


39 








RTS 








184 










* 










185 










* VARIABLES 








186 










* 










187 


1127 


00 






COUNT 


FCB 





BYTE COUNT 




188 


1128 


00 






TFLAG 


FCB 





TRANSFER ADDR FLAG, 0-NO 




189 


1129 


FF 






SKIP 


FCB 


$FF 


SKIP FIRST PRINT FLAG 




190 


112A 00 


00 




TADDR 


FDB 





TRANSFER ADDR 




191 


112C 


00 


00 




BEGSEG 


FDB 





BEGINNING OF SEGMENT 




192 


112E 


00 


00 




ENDS EG 


FDB 





END OF SEGMENT 




193 


1130 


00 


00 




BEGREC 


FDB 





BEGINNING OF RECORD 




194 


1132 


00 


00 




ENDREC 


FDB 





END OF RECORD 




195 


1134 


00 


00 




XTEMP 


FDB 





TEMPORARY FOR XR 




196 


1136 


00 


00 




STEMP 


FDB 





STACK REG SAVE 




197 










* 










198 










* STRINGS FOR 


ERROR MESSAGES 




199 










* 










200 


1138 


4E 






NOFST 


FCC 


/NO SUCH FILE/ 






1139 


4F 


20 
















113B 


53 


55 
















113D 


43 


48 
















113F 


20 


46 
















1141 


49 


4C 
















1143 


45 
















201 


1144 


04 








FCB 


4 






202 


1145 


49 






ILLST 


FCC 


/ILLEGAL FILE NAME/ 






1146 


4C 


4C 
















1148 


45 


47 
















114A 41 


4C 
















114C 


20 


46 
















114E 49 


4C 
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1150 45 


20 


















1152 4E 


41 


















1154 4D 


45 
















203 


1156 04 






FCB 


4 










204 


1157 54 




MSG1 


FCC 


/TRANSFER ADDRESS- 


'$/ 






1158 52 


41 


















115A 4E 


53 


















115C 46 


45 


















115E 52 


20 


















1160 41 


44 


















1162 44 


52 


















1164 45 


53 


















1166 53 


3D 


















1168 24 


















205 


1169 04 






FCB 


4 










206 








END 


LOCATP 








NO ERROR (S) DETECTED 
















SYMBOL TABLE: 
















BEGREC 


1130 1 


BEGSKG 


112C 


COUNT 


1127 


ENDREC 


1132 


ENDSEG 


112E 


FCB 


7740 


FMS 


7806 


FMSCLS 


7803 


GFTFIL 


7127 


ILLST 


1145 


LOCI 


1003 


LOC10 


10AO 


L0C11 


10BA 


LOCI 2 


10CB 


LOCI 3 


10D4 


LOCK 


10D9 


LOCI 5 


10DE 


LOCI 6 


10E4 


L0C17 


10EA 


LOCI 8 


10FA 


LOCI 9 


10FB 1 


L0C2 


1014 


L0C20 


1106 


L0C3 


102B 


L0C4 


1035 


LOC5 


1042 


LOC6 


1050 


L0C7 


106E 


L0C8 


1087 


L0C9 


108F 


LOCATE 


1000 


MSG1 


1157 


NOFST 


1138 


OUTHEX 


7139 


PCRLF 


711E 


PSTRNG 


7118 


PUTCHR 


7112 


RPTERR 


713C 


SCTFXT 


712D 


SKIP 


1129 


STEMP 


1136 


TADDR 


112A 


TFLAG 


1128 


WARMS 


7103 


XTEMP 


1134 



BASIC RENUMBERING 



for 
Southwest Tech BASIC 



Mk*«y FerguKM 
PO BOM7M 
Tr«nlor> P GA 30752 



Did you ever program yourself into a 
corner? Surely you have decided to write 
some simple little program while sitting 
at your terminal. And as you progress, 
the little program grows becoming much 
Icsr simple. Then you find It will run 
properly If you add a line between lines 
80 and 90. But you have used ALL possible 
line numbers from 80 to 90. So, you start 
re-entering lines, renumbering them as you 
go. And trying not to make any mistakes. 
Or you might just want to impress your 
friends by always having all of your 
programs begin with line 10 and all line 
numbers incremented by 10. It sure makes 
it appear that you knew exactly what you 
were doing when you wrote the program. 
Using the program Included with this 
article will get you out of those corners 
we all sometimes get ourselves into. And 
if you don't tell your friends about it, I 
won f t either. 



The RENUM program renumbers the 
program currently resident in memory* The 
first line number after renumbering is 10, 
and all line numbers are Incremented by 
10. As presented here! RENUM is written to 
be used as a FLEX utility but returns 
control to BASIC Instead of to FLEX. It 
is assembled for a starting address of 
$C0OO because 1 had some memory there, and 
because it can be called from the SWTBUG 
"Z" command once it is in memory. You may 
assemble it for any location in memory 
conveinent for you. And you could even 
assemble it to reside contiguous with 
BASIC (providing you lock out BASIC to 
keep RENUM from being overwritten by 
BASIC). RENUM is written for SWTPC Disk 
BASIC Version 3.0 for the FLEX operating 
system* But it is easily modified for use 
with any of the BASIC f s written by Robert 
Uiterwyk. And I will give you the patches 
for SWTPC f s 8k Version 2.0 and miniFlex 
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BASICS. Hut first, let's look at how RENUM 
works. 

I will not discuss the operation of 
RENUM In minute detail, because 
(hopefully) the source Is commented well 
enough to make that unnecessary. RENUM 
runs In two passes through the BASIC 
program. During the first pass, a lookup 
table Is built In memory following the 
BASIC program. In the second pass, all 
line numbers In the BASIC program are 
replaced with the new line numbers from 
the table. An entry In the lookup table 
consists of the old line number followed 
by the new line number. In the table the 
line numbers are stored In packed BCD 
(Binary Coded Decimal) format; thus each 
entry In the table requires four bytes to 
store two line numbers. RENUM has to use 
a lookup table because there Is no way for 
a program to calculate a new line number 
based on the old one. If humans were as 
logical as computers, It would be simple 
to devise a method to calculate the new 
line numbers. But then renumbering 
programs would be unnecessary. 

BASIC adds Its share of headaches for 
RENUM during the second pass. As I f ve 
already mentioned, line numbers are stored 
In packed BCD format. But this Is not the 
case when a line number Is used In a BASIC 
statement (like: GOTO 200). Line numbers 
referenced In a BASIC statement are stored 
In ASCII format. So RENUM must be able to 
recognize both BCD and ASCII line numbers, 
and be able to distinguish them from 
constants used In the BASIC program. If 
this weren't enough, BASIC further 
complicates things by converting the first 
keyword used In a statement to a token. 
While any subsequent keywords are merely 
stored In ASCII. (Your BASIC programs 
would run a lot faster If ALL keywords 
were converted to tokens.) So RENUM must 
be able to recognize keywords In ASCII and 
by their tokens. The tokens BASIC uses 
can be considered to be "a pointer to a 
pointer" • The token Is the address of the 
pointer to the keyword routine In BASIC' s 
lookup table. The source for one entry In 
BASIC 1 s lookup table looks something like 
this: 

FCC /GOTO/ 

FCB 

FDB GOTO the token points to here 

It would be very helpful to RENUM If BASIC 

18. 



did not allow multiple statement lines. 
Or very complex single statement lines 
like; 

IF X-l THEN IF Y-2 THEN ON Z GOTO 100,200 

But BASIC docs allow all these things and 
we would be very unhappy If it didn't. So 
RENUM must allow for them as well. 
Additionally, line numbers change In 
length when a program Is renumbered, GOTO 
1000 might become GOTO 90. And It would 
not be desirable to have the line say GOTO 
0090 after the program Is renumbered. So 
RENUM supressea leading *t>roa * Rnf ryvrn 
90 could become GOTO 100 and might look 
like GOTO 100 after renumbering. So RENUM 
opens up the necessary room when a line 
number grows. 

If you are very familiar with the 
Internal workings of your BASIC, you will 
notice there are routines In RENUM that 
are also In BASIC. If you are that 
familiar with your BASIC, I would 
recommend using the routines In BASIC, 
Instead of duplicating them In RENUM. You 
might also Incorporate RENUM Into your 
BASIC'S keyword table and add an optional 
argument. So that you could say 
RENUM, 200. And your program would be 
renumbered beginning with line number 200. 
A second argument could be added to 
specify the Increment value. These 
changes would be quite simple to 
Implement; but should not be attempted 
unless you really understand how your 
BASIC works. I chose not to do this here 
to make It easier to patch RENUM for 
different versions of BASIC. Speaking of 
patching RENUM for different versions of 
BASIC; only one change Is necessary for 
RENUM to run with mlnlFLEX BASIC. You 
will note the line In the SYSTEM EQUATES 
that says: 

BASERR EQU $CE9 

For RENUM to work with mlnlFLEX BASIC, 
this line must be changed to: 

BASERR EQU $CE6 

For RENUM to run with SWTPC 8k BASIC 
Version 2.0, three changes must be made. 
As above, the BASERR line must be changed 
and should read: 

BASERR EQU $BEB 
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In 8k V2.0 the tokens for COTO and GOSUB 
are $022D & $0234 respectively. This 
requires two changes to the RENUM6 
routine. The source as shown reads: 



So if you need renumbering for SWTPC 4k 
BASIC; write to Kilobaud, not to me. 



CMP 


A 


#2 


BNE 




RENU65 


CMP 


B 


#$30 


BEQ 




GO 


CMP 

BEQ 


B 


#$37 
GO 



SYMBOL TABLE: 



To use RENUM with Sk BASIC V2.0 this code 
must be changed to read as follows: 

CMP A #2 
BNE RENU65 
CMP B #$2D 
BEQ GO 
CMP B //$34 
BEQ GO 



One word of caution. It is wise to 
save a copy of your BASIC program to tape 
or disk prior to renumbering it. Should 
RENUM encounter an error (GOTO 200 - when 
there is no line 200, for example), the 
renumbering process is halted and control 
is given to BASIC through its error 
handling routine. If this occurs your 
program will be in a partially renumbered 
state 9 and completely useless to either 
BASIC, RENUM, or to you. All you have to 
do is lose a two or three hundred line 
program and you will really appreciate 
that backup copy. 

As I mentioned earlier, you should 
be able to get RENUM to run with any of 
Robert Uiterwyk's BASICS. This includes 
MSI BASIC, Computerware BASIC, and PERCOM 
SuperBASIC. And possibly others that I am 
not aware of. All you need to know to 
modify RENUM for these different BASICS 
ia: 

1.- The address of BASIC* s error handling 

routine 
2.- The tokens for GOTO and GOSUB 
3.- The memory locations used for NEXTBA, 

SOURCE, MSLINE, & LSLINE (if 

different from those shown in the 

listing) 

But don't ask me about a version for SWTPC 
4k BASIC. I wrote a renumbering program 
for 4k BASIC *brmr two «nd one half vears 
ago* And sold an article about it to 
Kilobaud - it has never been published. 



ASC0N 


C14E 


ASTM1 


C2CB 


BASERR 0CE9 


BCDCHl 


C1C0 


BCDC02 


C1DB 


BCDC03 


C1F4 


DEXGET C148 


FNDL1 1 


C197 


FNDLIN 


C18B 


GO 


C0AF 


G035 


C103 


G04 


C10A 


G06 


C12C 


G07 


C142 


LSLINE 


0033 


M0VE1 


C277 


ON 


C1TO 


ONI 


C200 


RENUOO 


C006 


RKNU45 


C063 


RENUMC 


I C009 


RENUM 1 


C013 


RENUM6 


C086 


RESTRT 


0103 


SOURCE 


002 K 


TEMPI 


C2C1 


TEMP5 


C2C9 


THEN 


C20F 


TSTN02 


C2B3 


TSTNUM 


C14B 


ASTM2 


C2CC 


ASTM3 


C20D 


BCDCH2 


C1D6 


BCDCH3 


C1EB 


BCDC0N C1B0 


CL0SU1 


C286 


FNDL15 


> C19E 


FNDLI1 


C18D 


G01 


C0BD 


G02 


C0D5 


G044 


C11C 


G045 


C11F 


GO 8 


C145 


GOSUB 


C24B 


MOVRTS 


1 C281 


MSLINE 


0032 


0N2 


C204 


ON 3 


C208 


RENU5! 


> CO 80 


RENU65 


C0AC 


RENUM3 C03F 


RENUM4 


C057 


SKIP1 


C2B6 


SKIP2 


C2BF 


TEMP2 


C2C3 


TEMP3 


C2C5 


THEN1 


C224 


TSTN0 


C2A7 


TSTOVF C25B 








ASTM4 


C2CE 






BCDC01 


C1C9 






CLOSUP 


C283 






FNDLI2 


C1A4 






G03 


COFO 






G05 


C126 






GOTO 


C230 






NEXTBA 


002A 






0N4 


C20C 






RENUM 


cooo 






RENUM5 


CO 79 






SKIPSP 


C2BC 






TEMP4 


C2C7 






TSTN01 


C2B0 
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NAM 



RENUMBER 



* BASIC PROGRAM RENUMBERING FOR 

* SWTPC DISK BASIC V3.0 FLEX 

* SYSTEM EQUATES 



002A 
002E 
0032 
0033 
0103 
0CE9 
COOO 



COOO DE 2A 
C002 9C 2E 
COOA 26 03 
C006 7E 01 03 



NEXTBA EQU $2 A 

SOURCE EQU $2E 

MSLINE EQU $32 

LSLINE EQU $33 

RESTRT EQU $103 

BASERR EQU $CE9 

ORG $C000 

*CHECK TO SEE IF SOURCE PROGRAM IS PRESENT 

RENUM LDX NKXTBA 

CPX SOURCE 

BNE RENUMO 

JMP RESTRT 



RENUOO 
* 

*START PASS ONE 

*BUILD TABLE OF LINE NUMBERS FOLLOWING 

*THE SOURCE PROGRAM IN MEMORY 

*EACH ENTRY CONSISTS OF FOUR BYTES 

*THE FIRST TWO ARE THE OLD LINE NO, IN BCD 

*THE NEXT TWO ARE THE NEW LINE NO, IN BCD 

* 



POINTER TO FIRST BYTE AFTER PROGRAM 

POINTER TO BEGINNING OF PROGRAM 

TOP HALF OF HIGHEST LINE # IN PROGRAM 

BOTTOM HALF OF HIGHEST LINE # 

BASIC WARM START ENTRY 

BASIC'S ERROR ROUTINE 

OR WHEREVER HANDY 



GET FIRST BYTE AFTER BASIC SOURCE 
SAME AS FIRST BYTE OF BASIC SOURCE? 
IF NOT, CO RENUMBER 
BACK TO BASIC WAKM START 



C009 FF 


02 


C5 


RENUMO STX 




TEMP3 


COOC AF 






CLR 


A 




COOD 97 


32 




STA 


A 


MSLINE 


COOF 97 


33 




STA 


A 


LSLINE 


COU DE 


2E 




LDX 




SOURCE 


C013 A6 


00 




RENUM 1 LDA 


A 


0,X 


C015 E6 


01 




LDA 


B 


1,X 


COW FF 


C2 


C3 


STX 




TEMP2 


C01A FE 


C2 


C5 


LDX 




TEMP 3 


CO ID A7 


00 




STA 


A 


0,X 


COIF E7 


01 




STA 


B 


i.x 


C021 08 






INX 






C022 08 






INX 






C023 96 


33 




LDA 


A 


LSLINE 


C025 8B 


OA 




ADD 


A 


#10 


C027 19 






DAA 






C028 97 


33 




STA 


A 


LSLINE 


C02A 96 


32 




LDA 


A 


MSLINE 


C02C 89 


00 




ADC 


A 


#0 


C02E 19 






DAA 






C02F 97, 


32 




STA 


A 


MSLINE 


C031 D6 


33 




LDA 


B 


LSLINE 


C033 A7 


00 




STA 


A 


0,X 


C035 E7 


01 




STA 


B 


i.x 


C037 08 






INX 






C038 08 






INX 






C039 FF 


C2 


C5 


STX 




TEMP3 


C03C FE C2 


C3 


LDX 




TEMP2 


C03F 9C 


2A 




RENUM3 CPX 




NEXTBA 


C0A1 27 


14 




BEQ 




RENUMA 


C0A3 08 






INX 







POINTER TO END OF LINE NUMBER TABLE 
INIT LINE NO COUNTER 



POINT TO SOURCE START 
GET LINE NO. 

SAVE SOURCE POINTER 

GET LINE NO, TABLE POINTER 

PUT LINE NO, IN TABLE 

BUMP THE POINTER 

AND AGAIN 

GET LSB OF LAST NEW LINE NO, 

ADD TEN TO IT 

BE SURE IT IS DECIMAL 

PUT BACK NEW LSD OF LINE NO, 

GET MSB OF LAST NEW LINE NO. 

ADD CARRY TO IT 

BE SURE IT IS DECIMAL 

PUT BACK NEW MSB OF LINE NO, 

GET LSB OF NEW LINE NO, 

PUT NEW LINE NO, IN TABLE 

BUMP END OF TABLE POINTER 

SAVE IT 

GET SOURCE POINTER 

ARE WE DONE? 

IF YES, DO SECOND PASS 

BUMP THE SOURCE POINTER 
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COAA A6 00 
C0A6 26 F7 
C0A8 FF C2 C7 
COAB F6 C2 CA 
COAE 5C 
COAF Fl C2 CB 
C052 27 EB 
C05A 08 
C055 20 BC 



LDA A 

BNE 

STX 

LDA B 

INC 

CMP 

BEQ 

INX 

BRA 



B 
B 



f X 
RENUM3 
TEMPA 
TEMP2+1 

TEMPA+1 
RENUM3 

RENUM1 



GET A BYTE OF SOURCE 

BRANCH IF NOT END OF LINE 

SAVE SOURCE POINTER 

GET OLD SOURCE POINTER+1 

ADD 1 TO IT 

CHECK FOR LINE NO. ENDING IN 00 

BUMP THE SOURCE POINTER 
REPEAT 



C057 FE C2 C5 
C05A 09 
C05B 09 
C05C 09 
C05D 09 
C05E FF C2 C5 
C061 DE 2E 



C063 9C 
C065 27 
C067 FF 
CO 6 A A6 
C06C E6 
C06E B7 
C071 F7 
C07A FF 
C077 DE 
C079 A6 
C07B Bl 
C07E 2 7 
C080 08 
C081 08 
C082 08 
C083 08 
C08A 20 
C086 E6 
C088 Fl 
C08B 26 
C08I) A6 
C08K E6 
C091 FE 
C09A A7 
C096 E7 
C098 08 
C099 08 
C09A A6 
C09C E6 
C09E 08 
C09F 08 



2A 
9F 

C2 C9 
00 
01 

C2 CI 
C2 C2 
C2 C3 
2A 
00 

C2 CI 
06 



F3 

01 

C2 C2 

F3 

02 

03 

C2 C3 

00 

01 



TEMP 3 



TEMP 3 
SOURCE 



*START PASS TWO 

RENUMA LDX 
DEX 
DEX 

DEX 
DEX 
STX 

LDX 

*REPIACE BCD LINE NUMBER 

RENUA5 CPX 
BEQ 
STX 
LDA A 
LDA B 
STA A 
STA B 
STX 



GET END OF TABLE POINTER 

DECREMENT THE END OF TABLE POINTER TO 

POINT TO ACTUAL END OF TABLE 



SAVE END OF TABLE POINTER 

GET POINTER TO SOURCE BEGINNING 



RENUM5 



00 
01 



LDX 
LDA A 
CMP A 
BEQ 

RENU55 INX 
INX 
INX 
INX 
BRA 

RENUM6 LDA B 
CMP B 
BNE 
LDA A 
LDA B 
LDX 
STA A 
STA B 
INX 
INX 
LDA A 
LDA B 
INX 
INX 



NEXTBA 

RENUOO 

TEMP5 

0,X 

l.X 

TEMPI 

TEMP 1+1 

TEMP 2 

NEXTBA 

0,X 

TEMPI 

RENUM6 



RENUM5 

1.X 

TEMP 1+1 

RENU55 

2.X 

3,X 

TEMP2 

f X 

l.X 



f X 

i.x 



HERE 

DONE? 

SAVE POINTER TO START OK SOURCE LINE 
GET LINE NO. FROM LINE 

SAVE IT 

SAVE SOURCE POINTER 
POINT TO START OF LINE NO. TABLE 
GET MSB OF LINE NO. FROM TABLE 
IS IT THE ONE WE WANT? 

NO. POINT TO NEXT ENTRY 



REPEAT 

GET LSB OF LINE NO. FROM TABLE 

IS IT THE ONE WE WANT? 

IF NOT REPEAT 

YES. GET NEW NO. FROM TABLE 

GET SOURCE POINTER 
PUT NEW NO. IN TABLE 

BUMP THE SOURCE POINTER 

GET MSB OF KEYBYTE FROM SOURCE 
GET LSB OF KEYBYTE FROM SOURCE 
BUMP THE SOURCE POINTER 



COAO 81 02 
COA2 26 08 
COAA CI 30 



*LO0K FOR TOKEN FOR GOTO & GOSUB 
*THESE ARE $0237 & $0230 

CMP A #2 
BNE RENU65 
CMP B #$30 



IS MSB THE ONE WE WANT? 
IS IT A GOSUB? 
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C0A6 27 07 
C0A8 CI 37 
COAA 27 03 
COAC 7E CI 



BEQ 


GO 


CMP B 


#$37 


BEQ 


CO 


JMP 


ON 



IS IT A GOTO? 
BEQ CO 
FD RENU65 

♦REPLACE OLD ASCII LINE NUMBER WITH NEW ASCII 
♦LINE NUMBER AND DELETE LEADING ZEROS 



PRESET ASCII LINE NO STORAGE 
MSB 



COAF 86 


FF 




GO 


LDA 


A 


#$FF 


C0B1 B7 


02 


CB 




STA 


A 


ASTM1 


C0B4 B7 


C2 


CC 




STA 


A 


ASTM2 


C0B7 B7 


C2 


CD 




STA 


A 


ASTM3 


COBA B7 


C2 


CE 




STA 


A 


ASTM4 


COBD 08 






C01 


INX 






COBE A6 


00 






LDA 


A 


0,X 


COCO 27 


13 






BEQ 




G02 


C0C2 81 


2C 






CMP 


A 


#$2C 


C0C4 27 


OF 






BEQ 




G02 


C0C6 81 


3A 






CMP 


A 


#$3 A 


C0C8 27 


OB 






BEQ 




G02 


COCA 81 


20 






CMP 


A 


#$20 


COCC 27 


07 






BEQ 




G02 


COCE 8D 


7B 






BSR 




TSTNUM 


CODO 24 


EB 






BCC 




G01 


C0D2 7E 


C2 


00 




JMP 




ONI 


CODS 8D 


71 




G02 


BSR 




DEXGET 


C0D7 B7 


C2 


CE 




STA 


A 


ASTM4 


CODA 8D 


6C 






BSR 




DEXGET 


CODC 25 


12 






BCS 




GO 3 


CODE B7 


C2 


CD 




STA 


A 


ASTM3 


C0E1 8D 


65 






BSR 




DEXGET 


C0E3 25 


OB 






BCS 




G03 


C0E5 B7 


C2 


CC 




STA 


A 


ASTM2 


C0E8 8D 


5E 






BSR 




DEXGET 


COEA 25 


04 






BCS 




G03 


COEC B7 


C2 


CB 




STA 


A 


ASTMl 


COEF 09 








DEX 






COFO 08 






G03 


INX 






C0F1 FF 


C2 


C3 




STX 




TEMP 2 


C0F4 8D 


58 






BSR 




AS CON 


C0F6 FE 


C2 


C3 




LDX 




TEMP2 


C0F9 B6 


C2 


CB 




LDA 


A 


ASTMl 


COFC 81 


30 






CMP 


A 


#$30 


COFE 26 


03 






BNE 




G035 


C100 BD 


C2 


83 




JSR 




CLOSUP 


C103 81 


FF 




G035 


CMP 


A 


#$FF 


C105 27 


03 






BEQ 




G04 


C107 A7 


00 






STA 


A 


0,X 


C109 08 








INX 






C10A B6 


C2 


CC 


G04 


LDA 


A 


ASTM2 


C10D 81 


30 






CMP 


A 


#$30 


C10F 26 


OE 






BNE 




C045 


Clll F6 


C2 


CB 




LDA 


B 


ASTMl 


C114 CI 


30 






CMP 


B 


#$30 


C116 27 


04 






BEQ 




G044 


C118 CI 


FF 






CMP 


B 


#$FF 


C11A 26 


03 






BNE 




G045 


C11C BD 


C2 


83 


G044 


JSR 




CLOSUP 


C11F*81 


FF 




G045 


CMP 


A 


#$FF 



LSB 

INC. POINT, SKIP SPACE, GET BYTE 

BRANCH ON END OF LINE 
IS IT A COMMA? 

IS IT A COLON? 

IS IT A SPACE? 

TEST FOR NUMERIC CHAR. 
BRANCH IF NUMERIC 

DEC POINTER + GET BYTE 
PUT IN ASCII TEMP 
GET ANOTHER 
BRANCH IF NOT NUMERIC 
PUT IN ASCII TEMP 



DECREMENT SOURCE POINTER 

BUMP SOURCE POINTER 

SAVE SOURCE POINTER 

RETURN WITH NEW LINE NO. IN ASCII 

GET SOURCE POINTER 

GET MSB ON NEW NO. 

IS IT ZERO? 

DELETE IT IF ZERO 
IS IT NOT USED? 

PUT IT IN SOURCE 

BUMP THE SOURCE POINTER 

GET NEXT DIGIT 

IS IT ZERO? 

GET MS DIGIT 

IS IT ALSO A ZERO? 

IS MS DIGIT NOT USED? 

DELETE LEADING ZEROS 
IS DIGIT NOT USED? 
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C121 27 


03 






BEQ 




G05 




C123 A7 


00 






STA 


A 


0,X 


PITT DIGIT IN SOURCE 


C125 08 








INX 






BUMP THE SOURCE POINTER 


C126 B6 


C2 


CD 


G05 


LDA 


A 


ASTM3 


GET NEXT DIGIT 


C129 A7 


00 






STA 


A 


O f X 


PUT IT IN SOURCE 


C12B 08 








INX 






BUMP THE SOURCE POINTER 


C12C B6 


C2 


CE 


G06 


LDA 


A 


ASTM4 


GET LS DIGIT 


C12F BD 


C2 


5B 




JSR 




TSTOVF 


GOT TEST FOR OVERFLOW 


C132 A7 


00 






STA 


A 


O f X 


PUT LS DIGIT IN SOURCE 


C134 BD 


C2 


BC 




JSR 




SKIPSP 


SKIP SPACES+GET CHAR, 


C137 81 


2C 






CMP 


A 


<$2C 


IS IT A COMMA? 


C139 27 


0A 






BEQ 




G08 




C13B 41) 








TST 


A 




IS IT END OF LINE? 


C13C 26 


04 






BNE 




GO 7 




C13K 08 








INX 






BUMP THE SOURCE POINTER 


C13F 7E 


CO 


63 




J MP 




RENU45 


DO NEXT LINE 


C142 7E 


CI 


FD 


GO 7 


JMP 




ON 




C145 7K 


CO 


AF 


G08 


JMP 




GO 




C148 09 






DEXGET 


DEX 






DECREMENT SOURCE POINTER 


C149 A6 


00 






LDA 


A 


0,X 


GET A BYTE OF SOURCE 


C14B 7E 


C2 


A7 


TSTNUM 
* 


JMP 




TSTNO 


GO TEST FOR NUMERIC 








^CONVERT ASCII 
* 


AT ASTM1 


THRU 4 TO BCD AT TEMPI 


CUE CE 


00 


00 


ASCON 


LDX 




00 


CLEAR THE INDEX REG 


C151 FF 


C2 


CI 




STX 




TEMPI 


CLEAR TEMPORARY 


C154 CE 


C2 


CI 




LDX 




#TEMP1 




C157 B6 


C2 


CE 




LDA 


A 


ASTM4 


GET LSB OF ASCII LINE NO 


C15A 84 


OF 






AND 


A 


#$F 


STRIP OFF ASCII BIAS 


C15C A7 


01 






STA 


A 


i.x 


SAVE IT 


C15E B6 


C2 


CD 




LDA 


A 


ASTM3 


GET NEXT ASCII DIGIT 


C161 81 


FF 






CMP 


A 


#$FF 


IS IT USED? 


C163 27 


26 






BEQ 




FNDLIN 




C165 84 


OF 






AND 


A 


#$F 


STRIP OFF ASCII BIAS 


C167 48 








ASL 


A 




SHIFT TO LEFT SIDE OF BY' 


C168 48 








ASL 


A 






C169 48 








ASL 


A 


. 




C16A 48 








ASL 


A 






C16B AB 


01 






ADD 


A 


1,X 


PACK THE BYTE 


C16D A7 


01 






STA 


A 


1,X 


SAVE IT 


C16F B6 


C2 


CC 




LDA 


A 


ASTM2 


GET NEXT ASCII DIGIT 


C172 81 


FF 






CMP 


A 


0$FF 


IS IT USED? 


C174 27 


15 






BEQ 




FNDLIN 




C176 84 


OF 






AND 


A 


0$F 




C178 A7 


00 






STA 


A 


f X 




C17A B6 


C2 


CB 




LDA 


A 


ASTM1 




C17D 81 


FF 






CMP 


A 


#$FF- 




C17F 27 


OA 






BEQ 




FNDLIN 




C181 84 


OF 






AND 


A 


0$Y 




C183 48 




- 


* 


ASL 


A 






C184 48 








ASL 


A 






C185 48 








ASL 


A 




• 


C186 48 








ASL 


A 






C187 AB 


00 






ADD 


A 


0,X 


- 


C189 A7 


00 




A 


STA 


A 


0,X 










*SEARCH 


TABLE 


FOR LINE 1 


NO 








*STORED 


AT TEMPI 










*AND PUT NEW NO AT TEMPI 
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THE TERmmAL- 







Until recently all terminal functions were designed with hard* 
ware logic, A relatively simple terminal with limited functions 
could easily require as many as sixty or more integrated cir* 
cuits. More sophisticated terminals with a moderate amount of 
intelligence could easily have over a hundred IC's. All this has 
now changed. With the introduction of MOS video controller 
circuits it has become possible to design a terminal using a con- 
troller and a microprocessor that will perform almost any 
imaginable function with software. The CT-82 has one hun- 
dred twenty-eight separate functions- all of which are software 
driven. It contains fewer parts than most "dumb" terminals. 

The normal screen format is 16 lines <20 lines selectable) with 
82 characters per line. This is an upper-lower case display with 
a 7 x 12 dot matrix. The high resolution characters are dis- 
played on a Motorola Data Products M-2000 series monitor 
with a green P 31 phosphor, This monitor has a 12 MHz video 
bandwidth and dynamic focus circuits to insure a crisp well 
focused display over the entire face of the tube. An alternate 
aM capital tetter format is available (optional) with 16. 20 or 
22 lines and 92 characters per line. The lower case portion of 
this character set has graphic symbols. In this mode the lines 
may be moved together to give a solid figure or line. Direct 
cursor addressing combined with the plotting capability makes 
it possible to indicate the end points of a line and then to 
automatically draw a line between them. 

Both the monitor and the character generator have sockets 
provided for alternate material in the form of an EPROM. This 



makes it possible to have special terminal functions, or charac 
ter sets that can be switched in under oomputer control. 

The CT 82 has its own internal editing. functions. This allows 
inserting and deleting lines and characters, erasing quadrants. 
or lines; doing rolls, scrolls, slides and other similar functions. 
The CT 82 can block transmit completed material to the 
computer, or output material to its own remote printer 
through the built-in parallel printer I/O port. The terminal 
can be programmed to operate at any system baud rate that 
is normally used from 50 to 38.400. The baud rate may be 
changed at any time within this range with a software com- 
mand. 

The cursor position, type of cursor, cursor ON-OFF and blink- 
ing are all provided. A command is provided to print control 
characters and also to turn on and off a tape punch, or tape 
reader. Protected fields, shift inversion, dual intensity and 
many other miscellaneous features make the CT 82 one of the 
most flexible terminals available. 

A fifty-six key alphanumeric keyboard plus a twelve key cur- 
sor pad is standard. A numeric pad may be substituted for the 
cursor pad (optional). Connection to the terminal is through 
a standard DB 25 connector and RS-232 signal levels. The 
CT 82 operates from 100, 115. 220. or 240 VAC at 50 to 60 
Hz. It weighs 20 lbs. and is a compact 18*' wide. 10" high and 
18" deep. 
CT-82 Intelligent Terminal 

assembled and tested . . . $795.00 F.O.B. San Antonio 




SOUTHWEST TECHNICAL 

219 W. Rhapsody 

San Antonio, Texas 78216 



PRODUCTS CORPORATION 



(512) 344-0241 
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THE EDITOR- 



The only microprocessor editor with all the features and ease of 
use normally found only on large machines. "THE EDITOR" lets 
you fully use the CT-82's capabilities. 



LINE POINTER -Now you understand why the CT-82 has 82 columns. The left two columns 
are used for a line pointer, which indicates the line of text being edited. 

FILE WRAPAROUND-'THE EDITOR" may make multiple passes over the file being edited 
without restarting the editor. 

AUTOMATIC CARRIAGE RETURN-The last word in a line will automatically be started on the 
next line if it will not fit in the space remaining on the line. 

SIMPLE COMMANDS-Commands consists of a single letter, or a key press on the cursor pad. No 
complicated format to be learned and remembered. 

MULTIPLE COMMANDS and REPEATS-Command line may have more than one command. 
'THE EDITOR" will execute command strings sequentially. Repeat func- 
tion allows changes in a string through the text file. 

SOURCE TEXT TABS— Tab stqps appropriate for source text input may be set to operate from 
the space bar, or any other key. 

SHIFT INVERSION— The keyboard may be set to produce either capital, or lower case letters 

when shift is used. 



SCREEN POSITIONING-Scroll up, scroll down, line pointer up, line pointer down, home file, 
top of memory, bottom of memory, move relative to pointed line and form 
feed are provided. 



"THE EDITOR" is available only for Southwest Technical Products com- 
puter systems using the CT-82 and running under FLEX-5* or FLEX-8* 
operating systems. It may be used to edit any files, or programs compat- 
ible with the DOS, except binary files. Edited files are compatible with 
the TSC Text Processing program. The combination makes a powerful 
and inexpensive word processing system. 

Editor FLEX-5%r FLEX-8?. $25.00 ppd. in Continental USA 

®FLEX h e registered tredemerk of TSC Inc. 





SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. Rhapsody 

San Antonio, Texas 78216 (512) 344-0241 
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26 





C18B 


DE 


2A 




FNDLI N 


LDX 




NLXTBA 


GET START OF TABLE POINTER 




CI 81) 


BC 


C2 


C5 


FNDLI 1 


CPX 




TEMP3 


REACHED END OF TABLE? 




C190 


26 


05 






BNE 




FNDL11 






C192 


C6 


07 






LDA 


B 


07 


ERROR 




C194 


7E 


OC 


E9 




JMP 




BASERR 


GO REPORT 




C197 


A6 


00 




FNDL11 


LDA 


A 


0,X 


GET MSB OF NO FROM TABLE 




C199 


Bl 


C2 


CI 




CMP 


A 


TEMPI 


IS IT THE ONE WE WANT? 




C19C 


27 


06 






BEQ 




FNDLI 2 






C19E 


08 






FNDLI 5 


INX 






POINT TO NEXT ENTRY 




C19F 


08 








INX 










C1A0 


08 








INX 










C1A1 


08 








INX 










CIA2 


20 


E9 






BRA 




FNDLI 1 


REPEAT 




C1A4 


E6 


01 




FNDLI 2 


LDA 


B 


i.x 


GET LSB OF NO. FROM TABLE 




C1A6 


Fl 


C2 


C2 




CMP 


B 


TEMP 1+1 


IS IT THE ONE WE WANT 




C1A9 


26 


F3 






BNE 




FNDLI 5 






C1AB 


EE 


02 






LDX 




2.X 


GET NEW NO, FROM TABLE 




CI AD 


FF 


C2 


CI 


£ 


STX 




TEMPI 


SAVE IT 












^CONVERT BCD LINE NUMBER 


AT TEMPI TO 












*ASCII 


AT ASTM1 THRU 4 






C1BO 


B6 


C2 


CI 


BCDCON 


LDA 


A 


TEMPI 


GET MSB 




C1B3 


16 








TAB 






SAVE IT 




C1B4 


84 


FO 






AND 


A 


0$FO 


STRIP OFF MS NYBBLE 




C1B6 


26 


08 






BNE 




BCDCH1 


IS IT ZERO? 




C1B8 


86 


FF 






LDA 


A 


J$FF 


SET NOT USED FLAG 




C1BA 


Bl 


C2 


CB 




CMP 


A 


ASTM1 


IS IT ALREADY SET? 




C1BD 


27 


OA 






BEQ 




BCDC01 






C1BF 


4F 








CLR 


A 




SET TO ZERO, NOT FF 




C1CO 


44 






BCDCH1 


LSR 


A 




SHIFT TO RIGHT NYBBLE 




C1C1 


44 








LSR 


A 








C1C2 


44 








LSR 


A 








C1C3 


44 








LSR 


A 








C1C4 


8B 


30 






ADD 


A 


tf$30 


ADD ASCII BIAS 




C1C6 


B7 


C2 


CB 




STA 


A 


ASTM1 


PUT IN ASCII TEMP 




C1C9 


17 






BCDC01 


TBA 






GET MSB OF BCD LINE NO 




C1CA 


84 


OF 






AND 


A 


0$F 


STRIP OFF MS NYBBLE 




C1CC 


26 


08 






BNE 




BCDCH2 


IS IT ZERO 




C1CE 


86 


FF 






LDA 


A 


#$FF 


SET NOT USED FLAG 




CIDO 


Bl 


C2 


CC 




CMP 


A 


ASTM2 


IS IT ALREADY SET 




C1D3 


27 


06 






BEQ 




BCDC02 






C1D5 


4F 








CLR 


A 




NO, SET IT TO ZERO 




C1D6 


8B 


30 




BCDCH2 


ADD 


A 


0$3O 


ADD ASCII BIAS 




C1D8 


B7 


C2 


CC 




STA 


A 


ASTM2 


SAVE IT 




C1DB 


B6 


C2 


C2 


BCDC02 


LDA 


A 


TEMP1+1 


GET LSB OF BCD LINE NO. 




CIDE 


16 








TAB 










C1DF 


84 


FO 






AND 


A 


#$F0 






C1E1 


26 


08 






BNE 




BCDCH3 






C1E3 


86 


FF 






LDA 


A 


<$FF 






C1E5 


Bl 


C2 


CD 




CMP 


A 


ASTM3 






C1E8 


27 


OA 






BEQ 




BCDC03 






C1EA 


4F 








CLR A 








C1EB 


44 






BCDCH3 


LSR 


A 








C1EC 


44 








LSR 


A 








C1ED 


44 








LSR 


A 








C1EE 


44 








LSR 


A 








C1EF 


8B 


30 






ADD 


A 


#$30 






C1F1 


B7 


C2 


CD 




STA 


A 


ASTM3 


■ 




















'fifl* Mfern 























C1F4 


17 




BCDC03 


TBA 








C1F5 


84 


OF 




AND 


A 


#$F 




C1F7 


8B 


30 




ADD 


A 


#$30 




C1F9 


B7 


C2 CE 




STA 


A 


ASTM4 




CIFC 


39 




ft 


RTS 














*LOOK FOR ASCII KEYWORDS 


1 THEN, GOTO, &GOSUB 








*AND/OF 

ft 


i END 


OF 


LINE 




C1FD 


BD 


C2 BC 


ON 


JSR 




SKIPSP 


SKIP SPACES 


C200 


81 


54 


ONI 


CMP 


A 


#$54 


IS CHAR A T 


C202 


27 


OB 




BEQ 




THEN 




C204 


81 


47 


0N2 


CMP 


A 


#$47 


IS CHAR A G 


C206 


27 


28 




BEQ 




GOTO 




C208 


4D 




0N3 


TST 


A 




END OF LINE? 


C209 


26 


F2 




BNE 




ON 




C20B 


08 






INX 






BUMP THE SOURCE POINTER 


C20C 


7E 


CO 63 


0N4 


JMP 




RENU45 


DO NEXT LINE 


C20F 


08 




THEN 


INX 






BUMP THE SOURCE POINTER 


C210 


A6 


00 




LDA 


A 


O f X 


GET A CHARACTER 


C212 


81 


48 




CMP 


A 


#$48 


IS IT AN H 


C214 


26 


EE 




BNE 




0N2 




C216 


08 






INX 






BUMP THE SOURCE POINTER 


C217 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C219 


81 


45 




CMP 


A 


#$45 


IS IT AN E 


C21B 


26 


E7 




BNE 




ON 2 




C21D 


08 






INX 






BUMP THE SOURCE POINTER 


C21E 


A6 


00 




LDA A 


0,X 


GET A CHARACTER 


C220 


81 


4E 




CMP 


A 


#$4E 


IS IT AN N 


C222 


26 


EO 




BNE 




ON 2 




C224 


BD 


C2 BC 


THEN1 


JSR 




SKIPSP 


GO SKIP SPACES 


C227 


BD 


C2 A7 




JSR 




TSTNO 


GO TEST FOR NUMERIC 


C22A 


25 


D8 




BCS 




0N2 


BRANCH IF NOT 


C22C 


09 






DEX 






DEC THE SOURCE POINTER 


C22D 


7E 


CO AF 




JMP 




GO 


GO RENUMBER IT 


C230 


08 




GOTO 


INX 






BUMP THE SOURCE POINTER 


C231 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C233 


81 


4F 




CMP 


A 


#$4F 


IS IT AN 


C235 


26 


Di 




BNE 




0N3 




C237 


08 






INX 






BUMP THE SOURCE POINTER 


C238 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C23A 


81 


53 




CMP 


A 


#$53 


IS IT AN S 


C23C 


27 


OD 




BEQ 




GOSUB 




C23E 


81 


54 




CMP 


A 


#$54 


IS IT A T 


C240 


26 


C6 




BNE 




0N3 




C242 


08 






INX 






BUMP THE SOURCE POINTER 


C243 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C245 


81 


4F 




CMP 


A 


#$4F 


IS IT AN 


C247 


27 


DB 




BEQ 




THEN1 




C249 


20 


BD 




BRA 




0N3 


ALL TESTS FAIL, REPEAT 


C24B 


08 




GOSUB 


INX 






BUMP THE SOURCE POINTER 


C24C 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C24E 


81 


55 




CMP 


A 


#$55 


IS IT A U 


C250 


26 


B6 




BNE 




ON 3 




C252 


08 






INX 






BUMP THE SOURCE POINTER 


C253 


A6 


00 




LDA 


A 


0,X 


GET A CHARACTER 


C255 


81 


42 




CMP 


A 


#$42 


IS IT A B 


C257 


27 


CB 




BEQ 




THEN1 




C259 


20 


AD 




BRA 




0N3 


ALL TESTS FAIL, REPEAT 
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* 

*TEST FOR OVERFLOW WHEN PUTTING NEW ASCII 
*LINE NO IN SOURCE, OPEN A HOLE FOR IT 
*IF NECESSARY 





C25B 


36 






TSTOVF 


PSH 


A 




SAVE CHARACTER 




C25C 


A6 


00 






LDA 


A 


0,X 


GET A CHARACTER FROM SOURCE 




C25E 


BD 


C2 


A7 




JSR 




TSTNO 


GO TEST FOR NUMERIC 




C261 


24 


IE 






BCC 




MOVRTS 


IF IT IS, DONE 




C263 


FF 


C2 


C7 




STX 




TEMP4 


SAVE THE POINTER 




C266 


FE 


C2 


C9 




LDX 




TEMP5 


GET START OF LINE POINTER 




C269 


6C 


04 






INC 




4.X 


ADD 1 TO LINE BYTE COUNT 




C26B DE 


2A 






LDX 




NEXTBA 


GET ADR OF FIRST BYTE AFTER SOURCE 




C26D 


08 








INX 






BUMP IT 




C26E 


DF 


2A 






srx 




NEXT1U 


SAVE IT 




C270 


FE 


C2 


C5 




LDX 




TEMP3 


GET ADR OF END OF TABLE 




C273 


08 








INX 






BUMP IT 




C274 


FF 


C2 


C5 




STX 




TEMP 3 


SAVE IT 




C277 


09 






MOVR1 


DEX 






DECREMENT THE POINTER 




C278 


A6 


00 






LDA 


A 


0,X 


GET A CHARACTER 




C27A 


A7 


01 






STA 


A 


i.x 


MOVE IT UP ONE BYTE 




C27C 


BC 


C2 


C7 




CPX 




TEMP4 


DONE??? 




C27F 


26 


F6 






BNE 




MOVE1 






C281 


32 






MOVRTS 


PUL 


A 




RESTORE A 




C282 


39 






* 


RTS 


















*CLOSE 

if 


HOLE 


MADE BY DELETEING LEADING ZEROS 




C283 


FF 


C2 


C7 


CLOSUP 


STX 




TEMP4 


SAVE POINTER 




C286 


A6 


01 




CLOSU1 


LDA 


A 


i.x 


GET A BYTE 




C288 


A7 


00 






STA 


A 


f X 


MOVE IT DOWN ONE 




C28A 08 








INX 






BUMP THE POINTER 




C28B 


BC 


C2 


C5 




CPX 




TEMF3 


DONE??? 




C28E 


26 


F6 






BNE 




CLOStl 1 






C290 


FE 


C2 


C5 




LDX 




TEMP3 


GET END OF TABLE POINTER 




C293 


09 








DEX 






SUBTRACT 1 




C294 


FF 


C2 


C5 




STX 




TEMP 3 


SAVE THE NEW POINTER 




C297 


FE 


C2 


C9 




LDX 




TEMP 5 


GET START OF LINE POINTER 




C29A 


6A 


04 






DEC 




4,X 


SUBTRACT ONE FROM LINE BYTE COUNT 




C29C 


DE 


2A 






LDX 




NEXTBA 


GET POINTER TO FIRST BYTE AFTER SOURCE 




C29E 


09 








DEX 






SUBTRACT ONE 




C29F 


DF 


2A 






STX 




NEXTBA 


SAVE NEW POINTER 




C2A1 


4F 








CLR 


A 




SET A TO 




C2A2 


4A 








DEC 


A 




$FF 




C2A3 


FE 


C2 


C7 




LDX 




TEMP4 


GET POINTER 




C2A6 


39 






£ 


RTS 






DONF 












*TEST FOR NUMERIC CHARACTER 




C2A7 


36 






TSTNO 


PSH 


A 








C2A8 


81 


30 






CMP 


A 


#•0 






C2AA 


2B 


04 






BMI 




TSTNOl 






C2AC 


81 


39 






CMP 


A 


# f 9 






C2AE 


2F 


03 






BLE 




TSTN02 






C2BO 


OD 






TSTNOl 


SEC 










C2B1 


32 








PUL 


A 








C2B2 


39 








RTS 










C2B3 


OC 






TSTN02 


CLC 










C2BA 


32 








PUL 


A 








C2B5 


39 








RTS 








28 
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*SKIP 


SPACES 




C2B6 


A6 


00 


SKIP1 


LDA A 


0,X 


C2BB 


81 


20 




CMP A 


mo 


C2BA 


26 


03 




BNE 


SKIP2 


C2BC 


08 




SKIPSP 


INX 




C2BD 


20 


F7 




BRA 


SKIP1 


C2BF 4D 




SKIP2 


TST A 




C2C0 


39 






RTS 




C2C1 






TEMPI 


RMB 


2 


C2C3 






TEMP2 


RMB 


2 


C2C5 






TKMP3 


RMB 


2 


C2C7 






TEMP4 


RMB 


2 


C2C9 






TEMPS 


RMB 


2 


C2CB 






ASTM1 


RMB 


1 


C2CC 






ASTM2 


RMB 


1 


C2CD 






ASTM3 


RMB 


1 


C2CE 






ASTM4 


RMB 
END 


1 
RENUM 



NO ERROR(S) DETECTED 



TIME PROMPTS 
FOR FLEX® 



R. D«m6ftn«ld 
12 Richard Rd. 
Modway, MA 02053 



I recently purchased the JPC Products CK-7 clock board for 
my SWTPc 6800 system, First, I am very pleased with JPC 8 
response to my order, as UPS attempted delivery only 9 days 
after the day I mailed it. The product was as advertised 
and even included better than average documentation. The 
board was built and completely tested within a couple of 
hours. That time included keying in the source for the 
program that was supplied to test the clock board. 



So, now that I had a clock on my system, what was I going 
to do with it? Well, since I run with Mini Flex, the first 
thing I decided to do was to extend the "+++" prompt to 
include the time of day, like some advanced systems. The 
result is the attached patch to Mini Flex. This patch 
develops a prompt of the formi 

♦ ♦■►HHMM SS 
which is then followed by a carriage return and line feed. 
The patch assumes the clock board to be on port k and that 
it has been properly initialized for use by the get digit 
routine. That initialization should include setting the 
clock to the current time of day. If RESET is used at any 
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time, the port must be reinitialized before the prompt will 
display a valid time. The following routine accomplishes 
thisi 



CLR 


POKT+1 


CLR 


PORT +3 


LDA A 


#$1C 


STA A 


PORT +2 


LDA A 


#* 


STA A 


PORT+1 


STA A 


PORT +3 



The area used for this patch wasn't large enough to have this 

routine as part of it, so its function must be provided 

elsewhere . 

Since this patch is always resident P assembly language and 

BASIC program could make use of it. Essentially, there are 

two useful routines called byi 

JSR $7EA6 print time on console 
JSR $7EB1 get and save current time 

The stored time is kept in packed hex format. 

With BASIC resident and setting location $0067 to $7EA6, 
the the statement Z9»USER(#) will cause the time to be 
typed out. 

Modification of the pacth for use with Flex 1.0 or 
Flex 2.0 should be a matter of finding an unused area 
within them and changing a few service routine addresses. 
Also, the interrupt portion of the CK-7 board could probably 
be used to drive the print spooling feature of these systems. 
Maybe someone can look into this modification. 
Good clocking. 

+♦♦1320 23 
P,CAT 1 
♦++1320 57 
(carriage return) 
♦++1321 05 

Simulated example of prompts with time. 

NAM SPATCH 

* PATCHES TO MINI FLEX VER 1.0 
* 

* BY R. DEMBINSKI 

EOCA PHEX EQU $E0CA USE MIK/SWT BUG 
30 '68' Micro Journal 



E0C8 








PHX2 

* 


EQU 


$E0C8 




7118 








PSTRNG 


EQU 


.$7118 




711E 








PCRLF 
# 


EQU 


$711E 




8010 








PORTA 


EQU 


$8010 




8011 








CRTIA 


EQU 


PORTA +1 




8012 








PORTB 


EQU 


PORTA +2 




8013 








CRT LB 


EQU 


PORTA +3 




7EFC 








HOUR 


EQU 


$7EFC 




7EFD 








MIN 


EQU 


HOUR+1 




7EFE 








SEC 

# 

* 


EQU 
ORG 


HOUR +2 
$718E 




71 8E 


BD 


7E i 




JSR 


NEWPT 


ALTER PROMPT WRITE 


7EA3 










ORG 


$7EA3 


NEW CODE 


7EA3 


BD 


71 


18 


NEWPT 


JSR 


PSTRNG 


COMPLETE PROMPT 


7EA6 


8D 


09 






BSR 


TIME 


GET TIME 


7EA8 


BD 


E0 


C8 




JSR 


PHX2 


EDIT TIME ALWAYS 


7EAB 


BD 


E0 


CA 




JSR 


PHEX 


ON CONSOLE 


7EAE 


7E 


71 


IE 




JMP 


PCRLF 




7EB1 


86 


18 




TIME 


LDA A 


#24 


GET SEC 


7EB3 


CE 


7E 


FC 




LDX 


#HOUR 


SET INDEX 


7EB6 


5F 








CLR B 




MBZ ON INITIAL RUN 


7EB7 


8D 


24 






BSR 


GETD 




7EB9 


36 






* 


PSH A 




SAVE SEC 


7EBA 


86 


1C 




* 


LDA A 


#$1C 


TEN HOUR 


7EBC 


8D 


IF 






BSR 


GETD 




7EBE 


86 


OC 






LDA A 


#$0C 


HOUR 


7EC0 


8D 


IB 






BSR 


GETD 




7EC2 


08 








INX 




SET X FOR MIN 


7EC3 


86 


14 






LDA A 


#$14 


TEN MIN 


7EC5 


8D 


16 






BSR 


GETD 




7EC7 


86 


10 






LDA A 


#$10 


MIN 


7EC9 


8D 


12 






BSR 


GETD 




7ECB 


08 








INX 




SET X FOR SEC 


7ECC 


86 


08 






LDA A 


#8 


TEN SEC 


7ECE 


8D 


OD 






BSR 


GETD 




7ED0 


86 


18 






LDA .A 


#24 


SEC 


7ED2 


8D 


09 






BSR 


GETD 




7ED4 


84 


OF 






AND A 


#$0F 


GET SEC 


7ED6 


W 








PUL B 




GET INITIAL SEC 


7ED7 


10 








SBA 




SUB FROM A B 


7ED8 


25 


D7 






BCS 


TIME 


REDO IF CARRY SET 


7EDA 


09 








DEX 




LEAVE INDEX AT HOUR 


7EDB 


09 








DEX 






7EDC 


39 






* 


RTS 






7EDD 


37 






GETD 


PSH B 




PRESERVE B 


7EDE 


F6 


80 


12 




LDA B 


PORTB 




7EE1 


C4 E3 






AND B 


#$E3 




7EE3 
7EE& 


IB 








ABA 






B7 


80 


12 




STA A 


PORTB 


SET FOR DESIRED DIGIT 


7EE7 


33 








PUL B 






7EE8 


B6 


80 


10 




LDA A 


PORTA 




7EEB 


84 


OF 






AND A 


#$0F 


GET LOW 4 BITS 
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a 



?EED 58 ASL B MOVE RIGHT 4 

?EEE 58 ASL B TO LEFT k 

7EEF 58 ASL B 

7EF0 58 ASL B 

7EF1 IB ABA GENERATE AND SAVE 

7EF2 A7 00 STA A 0,X HH, MM OR SS 

7EF4 16 1'AB MOVJi RESULT TO B 

7EF5 39 RTS 

END 



A REVIEW OF SOME 
6800 MONITORS 



Rotort C. Boyd 
Wood lawn Aw.. RFD 2 
KenrrebunKport. MS 04046 



One of the most important features of Motorola 6800 systems Is the use of 
read-only-memory (POM) to provide a permanently stored monitor program, 
ThlB feature enables the operator to enter commands through the control 
terminal immediately upon power-up without first keying. in a routine as on 
other systems. 

Early M68OO systems utilized the MIKBUG monitor and the 6620 Peripheral 
Interface Adapter (PIA) which connected the control terminal (usually a 
•Teletype or video display device ) to the microcomputer. Most user programs 
and comnercial software were written to branch to MIKBUG subroutines to 
accomplish input or output operations; this reduced both the task of 
writing a program as well as the amount of memory required at execution 
time. 

When Motorola announced the 6850 Asynchronous Communications Interface 
Adapter (ACIA), manufacturers and users quickly recognized its advantages 
over the PIA, particularly for interrupt -driven or high transfer-rate 
serial I/O operations, (The PIA was designed for 8-bit parallel I/O 
and not serial I/O- MIKBUG keeps the microcomputer in a timing loop 
while reading or writing data through the PIA, and, while in the loop, 
the microcomputer cannot be doing useful work. The maximum transfer 
rate possible with MIKBUG and the PIA is about 1200 bite per second(bps); 

registered trademark of Motorola Inc. 
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an ACIA is capable of rates in excess of 19,200 bps. ) Many MSBOO systems 
now provide an ACIA to connect terminals and other serial devices to the 
system. 

The changeover from PIA to ACIA necessitates that the MIKBUG ROM be replaced 
with a monitor which will control the ACIA and be somewhat software compatible 
with MIKBUG In order to minimize changes to software which had used MIKBUG 
subroutines. Today the M68OO user Is presented with a variety of ROM's 
and EPR0M r s containing monitors which may or may not be MIKBUG •compatible. 
Several monitors are designed to facilitate program development by including 
single-step, memory-durap, and register examine/change commands. There is 
at least one monitor available which will execute more than one task at a 
time. Some monitors contain commands to transfer control to user-written 
routines which would be stored elsewhere In EPROM or RAM, or to disk-based 
operating systems. The features of four MIKBUG-compatible monitors are 
presented in this article to assist the user in determining which monitor 
would be most useful In his M6800 system. 

Table I lists the promlnant commands and features of the SMARTBUG, 

2 
SWTEUG , MSIBUG, and RT/68 monitors. The documentation supplied with each 

monitor contains details on hardware configuration and command usage as 

well as an assembly listing of the monitor. Each occupies 1021* bytes of 

area addressed starting at £000, and requires at least 128 bytes of RAM 

at A000 for work-area and stack. All four monitors contain conanands to 
display registers, to examine and/or to change memory, to load or to punch 

tape, and to execute a user program. Each has the capability to Jump to 

additional user-written conanands which would be stored In EPROM or RAM. 

The SWTBUG has the feature of being able to direct 10 operations to any 

port addressed from 8000 to 801C. The SWTBUG is available only in ROM; 

the other three monitors may be obtained in 2708 ETOOM, and may therefore 

be easily customized by the user. 

2 
registered trademark of Southwest Technical Products Corporation. 
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SWraiK) will communicate with the control terminal through either a PIA 
or ACIA at 800**; an optional PIA may be used at 6000 for tape load and 
punch commands. Furthermore, input and output operations nay be vectored 
to other ports by first entering the port address into memory locations 
A0OA-A0OB. 3WTBUG will then examine that port and configure itself for 
either a PIA or ACIA. These features facilitate using a video terminal 
at high transfer rate (or a Teletype at 110 bps ) on the control port, a 
tape cassette system at 300 baud on port 0, and a line printer at yet 
another transfer rate on a third port. SWTBUG includes a command to home- 
up and clear the screen on the SWTP CT-102U terminal, and another command 
to bootstrap the MF-68 minifloppy disk system. The byte -search command 
examines memory within the specified range and displays each address 
containing the specified data; this would be useful during certain phases 
of program development. 

SMARTBUG requires an ACIA at 8008 to communicate with the control terminal. 
Commands are provided to examine and change the A or B accumulators, the 
condition code register, and the index register. The insert command enables 
the user to place a character into one or more memory locations; it would 
be used to clear memory to blanks or to any character (such as 3F - software 
interrupt) prior to loading and executing a program « The echo, no-echo, and 
hard-copy commands allow flexible control over those systems which contain 
more than one output device where output may be desired on one device but 
not on both at the same time* The trace command puts the microcomputer into 
single-step mode where one instruction is executed, the registers are displayed, 
and opportunity is granted to change the A, B, C, or X registers before 
continuing. Two commands are included to control the BFD-68 floppy disk 
system. Another command transfers control to EbOO where additional EPROM 
or RAM may be located to contain the user's favorite programs or subroutines. 

MSIBlXr will communicate with the control terminal through an ACIA at 8000. 
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A tape cassette interface may be connected to either port or port 1* 
Ab with SWTBUG, this facilitates tape operation at a different transfer 
rate from that of the control terminal. The lister or print memory comnand 
displays a block of memory in instruction format, i. e., one, two, or three 
byte instructions are displayed one instruction per line. The calculate 
checksum command will generate a three-byte checksum on the specified area 
of memory so that a user can easily determine if memory content has been 
altered by program execution. The commands to permit and inhibit print-out 
enable a section of a listing to be skipped entirely; another command will 
cause execution of a user-program to halt. 

RT/68 requires either an ACIA at 8000 or a PIA at 800U to connect the 
control terminal to the system. The PIA is always required to enable RT/68 

to determine interface options, and it may be used to implement a real-time 

clock or a front panel abort switch. The RT/68 operates in console mode 

(to load, save, or debug programs), single-task mode (to execute MIKBUG-type 

software), or multi-task mode (where up to 16 tasks may execute concurrently). 

A task is defined as n a complete unit of object code that can compete for 

system resources independently." A comprehensive 80-page manual is included 

with the RT/68, and considerable detail is provided on multitasking, interrupt 

processing, and reentrant code. 

This article has discussed the featureE of SWTBUG, SMARTBUG, MSIBUG, and 
RT/68, four MIKBUG-compatible monitors for the Motorola 6800 systems. Each 
monitor has a number of unique time-saving commands which will greatly increase 
the usefulness of a system which is currently using the MIKBUG monitor. The 
user who hopes someday to expand his system to include an EFRQM board or a 
minifloppy controller can install one of these monitors today knowing that 
it has the features built in to facilitate that future expansion. Once it 
is installed, you'll wonder bov you ever got along without it; 
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SWTBUG 



Manufacturer 



Southwest Technical 
Products Corp, 

Jfcdla ROM 

Required interface ACIA and/or PIA 

Task capability single 

Comnands and features: 

display registers R 

load memory from tape L 

execute program J aaaa 

save memory onto tape P (3>*0 

write end of file on tape E (5) 

memory examine/change M aaaa 

set breakpoint B aaaa 

go to program/ re turn 

from interrupt G (5) 

Jump to user routine Z (at C000) 

print memory contents «- 

home and clear CRT C 

disk bootstrap D 

byte search f bbbbaaaacc 

examine/change registers 

insert into memory ----—— 

program trace 

calculate checksum -— 

start/stop output routine -__-__ 

terminate output routine — — 

activate multi-task mode — ——-•••- 

abort current function — --- — - — — 

real-time clock — — 

vectored SWI and I/O yes 

Price $19-95 



TABLE I 
SMARTOUC 

Sboke Signal 

Broadcasting 

EPROM 

ACIA 

single 

R 

L 

J aaaa 

P aaaa bbbb {k) 

M aaaa 
K aaaa 



G 

k 



(5) 

(at E^OOO) 



A,B,C, or X 
I aaaa bbbb cc 
T 



MSIBUG 

Midwest Scientific 
Instruments, Inc. 
EPROM 
ACIA 
single 



(1) 



R 

L n 

G aaaa 

P n aaaa bbbb 

part of P command 

M aaaa 



X (at EkOOO) 
T aaaa bbbb 



C aaaa bbbb 
control S 
control E 

control D 



$39-95 to $U9.95 $60.00 



aaaa = beginning memory address 
bbbb = endirg memory address 
cc = data 



= optional port 

n = I/O port number 

X - user defined coonands 



RT/68 

Microware Systems Corp 

ROM or EPROM 

PIA, optional ACIA 

up to 16 tasks 

R 

L 

E> aaaa 

P, aaaa, bbbb 

M , aaaa 
B > aaaa 

G 

ESC (at 7000) 

D , aaaa , bbbb 



E 

3 
O 

o 
o 

s 



(2) 

CO 



optional switch 
optional 



(6) 



$55.00 



1 optional echo on control terminal 

2 single* task mode 

3 beginning address previously entered into AOO2-AO05 
k does not write end of file marker 

5 start address previously entered into AOU8-AOU9 

6 execution may be resumed 



The following oictures were taken during our coverage of the Fourth West Coast 
Computer Falre - San Francisco, California - ''ay 11, 12, 13th 1<>79. The 6RO0 
crowd was outnumbered by the 'Appliance Crowd r and many 6800 vendors suggested 
this may be their last. The crowds were estimated at between 5000-7500 for all 
three days. See you next in Atlanta the 15th - 16th & 17th of June. 6£ Micro 
Journal will be there also. Look for us at our booth 01, just to the ripht as you 



come in. See vou then, 



.Don. 





The SWTPC T Cang' Dan Meyer behind the 
'Kung-Fu' Moustache flanked by (r) Joe f 
(1) Gary and Dennis and Ron (software) on 
the other end. 



Motorola f s Terry Ritter (6809 pappa) and 
Koland Lewis (r) at the 'Big Fist 1 booth. 





TSC's Dave Shirk, explaining his software 
'goodies* to an attentive faire-goer. 

■ 



Advanced Computer Product's president, 
early 6800 device supplier (still is), 
David Freeman. 




Mr. CIMIX himself - 
full GHOST display. 



Richard Don with a 



Dave Freeman (1) and Dr. 
getting it all together. 



Adam Osborne (r) 
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■creafcivcj 




jthMfl 


fs« 


V*W< v*ucMnmJD 


^^bwAHC 


1 






^1 '' ' 




■i 









MIcrohaSys's John Stunpy (r) with Charles 
Ilotchkiss (1) who just bought a 6tt02 r.PU 
board for his S100 machine. 



John CraJp - Fditor (and pooct friend) of 
Creative Computing. Note: Editor's 
Remarks this Issue. 




MSI ' s VP and (General M an<ifcer tennis Sealer 
demonstrating the new ' Husiness' package 
to a faire-^oer. 




The SVTPC Winchester T>isk» should he 
available in the next couple months for 
about four biggies. 



MOTOROLA MBBOS 
EMULATOR 

RUN 6B09 SOFTWARE BEFORE 
THE CHIP IS AVAILABLE! 



E6809 Is a 6800 machine language program 
that will emulate all of the functions of the 
Motorola 6809 third generation micro- 
processor. Developed for use on any 6800 
computer system, the program allows 
software development and debugging prior 
to 6809 availability. 6809 object code may be 
placed in the 6800's memory and executed 
or single-step traced by E6809. The 3K byte 
program is complete with a 6809 mini- 
monitor and console I/O routines for ease of 
use. A fully commented source listing is 
included. Specify Smoke Signal Broad- 
casting or FLEX™ disk, or KCS cassette. 
S49.95 



TMI 






M**ter Charge 



BankAmoficanf 



DIPT K, P.O. BOX UK), Oil MAft. CA MOM (7W) 7U~%*%? 
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MAGIC SQUARES 



Paul P»nninglon 
C9RA Compute- Club 
Mirtm« GA 30907 



A magic square is an array of numbers arranged so that the sum of each row 
and column, as well as the two diagonals, is the same. An example is shown for 
order 5. A method of generating a magic square whose order is an odd number is 
to start with 1 on the middle square of the top row, then proceed numbering up and 
to the left diagonally (when you run off the edge "wrap around" to the oilier side) 
until a filled square is reached. Then drop down one square from the most -recently - 
filled square and continue. Incidentally, this ulgorithm was not developed by a 
computer programmer. It was brought from Siam to France by S. de La Loubere 
in 1687. (Reference: Knuth, The Art of Computer Programming, Vol 1, p 158) 



0010 
0020 
0030 

ooto 

0050 
0060 
0070 
0080 
0090 
0100 
0105 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
1000 
1010 
1020 
1030 
1040 
1050 
999i> 



REM MAGIC SQUARES 

REM SEE KNUTH, VOL 1, PG 158 

PRINT "MAGIC SQUARE GENERATOR" 

INPUT "ORDER", D 

IF D/2=INT(D/2) THEN PRINT "ODD ORDER ONLY": GOTO 40 

DIM M(D, D) 

R=l 

C=INT(D/2)+l 

N=N+1 

M(R, C)=N 

IFN=D*DTHEN 1000 

R=R-1 

IF R=0 THEN R=R+D 

C-C-l 

IF C=0 THEN C=C+D 

IF M(R, C)=0 THEN 90 

R=R+2: IF R>D THEN R=R-D 

C=C+1: IF C>D THEN C=C-D 

M(R,C)=N 

GOTO 90 

FOR R=l TO D 

FOR C=l TO D 

PRINT TAB(3*C); M(R,C); 

NEXTC 

PRINT 

NEXT R 

END 



Sample RUN: 

MAGIC SQUARE GENERATOR 
ORDER? 5 

15 8 1 24 17 

16 14 7 5 23 
22 20 13 6 4 
3 21 19 12 10 
9 2 25 18 11 



Extracted with THANKS from: CSRA Computer Club Newsletter 

Paul Pennington • Editor 
Martinez, GA 30907 
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EDITORS REMARKS 



The subject of this column, this month, 
does not apply to our normal theme of 
1 6800/09 information only 1 . As you read 
on you will understand why. Bear in mind 
that this has not happened to us in the 
6800 crowd, but it does not mean It 
capnot, unless we all keep our guard up* 

This is a true but sad tale of what can 
happen if a magazine does not check out 
it's advertisers. The losers are not only 
the rooked buyers but also us as the 
advertising media and of course the other 
good guys who honor their advertised 
promises. 

Since we started we have turned down 
three advertisers. This means thousands 
in advertising revenue over a period of 
time* All for the same reason; 1 felt that 
their past track record was indicative of 
shoddy products and service , or promises 
unkept. The other magazines carry their 
advertising and we could sure use the 
advertising revenue. However, from the 
outset it was my firm intention to insure 
that we would attempt to protect our 
readers from unscrupulous advertisers. To 
this end I pledge my continued vigilance. 

All of the advertisers in 68 Micro 
Journal are known to me personally, either 
by product use or report of others 
considered fair in their apprasial. This 
means that to the best of my knowledge and 
investigation ALL THOSE ADVERTISERS IN 68 
MICRO JOURNAL are dependable and honest. 
We are very fortunate that the average 
6800/09 vendor and manufacturer is as 
dedicated to your satisfaction as any 
sales group in the computer field. 

I use this space to tell you the 
following because it seems that we need to 
be aware, you and I together. Also I want 
to commend John Craig, Editor of Creative 
Computing and Bill Godbout for their 
desire to keep the trade clean. Their 
actions have saved a lot of unsupecting 
micro buyers additional financial loss* 
That they are competitors or S10O vendors 
makes not a quid of difference in this 
instance; what counts is that we are all 
members of the human race and as such 
should have concern for one another. 



It seems that a year or so back a 
company (?) by the name of DataSync 
started advertising heavily in most of the 
other computer magazines. It appears that 
the advertising was accepted by these 
magazines without much background 
knowledge of the product or principals 
involved. DataSync was headed up by a 
person known as Col. Dave Winthrop* It 
was discovered later (too late) that 
Col. Dave Winthrop had also other names. 
It was also belatedly discovered that 
Winthrop had headed other shoddy or 
dishonest operations. Needless to say; by 
the time his dishonest operation was 
uncovered, many micro hobbyist had lost a 
bundle (estimated at over $100,000.00). 

The ads were mockups of other company's 
products, with the names deleted or 
covered up and additional devices pasted 
to the product. The line included 
everything from video terminals to memory 
kits. Actually not one item existed. Due 
to the action of John Craig and others, 
Winthrop was exposed, arrested and 
sentenced to prison. While in a 
California minimum security facility 
(where he had convinced many officials 
that he was on the verge of a 'solar 
energy 1 breakthrough) he escape. 

Act Two: A few months back a new and 
heavy advertising company called 'World 
Power Systems 1 began advertising in nearly 
all the computer magazines. Believe it or 
not; the April issues. Not just one or 
two pages but A or 5 full pages, each 
month, in each magazine. Apparently none 
of the magazines became suspicious of such 
a large volumn by a new and unknow 
concern. It is not surprising that by the 
time it was over they were many thousands 
of dollars lighter. World Power Systems 
was headed up by a man by the name of Jim 
Anderson. Yep, you guess it, Winthrop up 
to his old tricks again. Seems some folks 
never learn. Oh, incidentially Winthrop's 
real name is supposed to be Norman Henry 
Hunt, but of course he rarely uses it. 

Old Winthrop or Hunt or whatever would 
probably still be gathering it it) if it 
had not been for the action of Bill 
Godbout of Godbout Electronics and John 
Craig of Creative Computing. One of the 
boards displayed in a World Power Systems 
ad looked suspicious to Bill. Bill got in 
touch with John and they decided to 
investigate World Power Systems (a little 
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late for some, as WPS had collected In 
about a half million, more or less). John 
made a 'bluff* call to world power last 
month (April) p stating that he was going 
to travel to their fine company for a get 
acquainted visit. This threw them into a 
panic and they fled, leaving most of the 
loot behind in their haste. By this time 
John had come to realize that Winthrop was 
the moving power of World Power Systems, 
but the bad guys had saddled up with part 
of the diggings (also a couple of lassies 
included) and departed in typical western 
style. Not on horseback, but in a new 

motor van. End of Act Two but not 

quite all. 

All this has a moral; I guess. If so, 
it has to be something like this: DEAL 
WITH MERCHANTS WHO YOU KNOW TO BE HONEST 
(OUR ADVERTISERS FOR INSTANCE). None of 
us can police the whole industry, but all 
of us collectively can go a long way in 
insuring that what has happened to others, 
will not be our lot, as concerns the 
above . 

The end is not yet. Hunt is still at 
large, whoopeeing it up at the expense of 
fellow computer hobbyist, also some 
red-faced (red-inked also) computer 
magazines* John and Bill did us all a 
service, to them we all say 9 THANKS 1 . The 
whole story is due out in Creative 
Computing in July. By then maybe Hunt 
will be apprehended and some of the latest 
victims will have recouped part of their 
losses; I sure hope so. 

So in ending I will repeat a promise I 
made to you the first time out. 68 Micro 
Journal will continue to accept 
advertising only from those who WE KNOW TO 
BE HONEST. You can trust our advertisers. 
If in doubt call me. If you desire 
information on companies not advertising 
in 68 Micro Journal, call me. I have a 
pretty good file on most 6800 vendors, and 
some that are not. Together we can all 
enjoy this; the greatest hobby in the 
world. ..computing. 



DMW 



BASIC CASSETTE Reprint from 6000 B\ a' 

FORMATS Chicago Area 6S00 Newsletter 

For those that have saved prolans on 
cassette, and need to know if they can use 
those tapes on other BASIC'S, the answer 



is a very simple . ...Maybe. It seeds that 
each version is a little different fron 
the next, tut for the nost p<rrt r they all 
follow a standard set when the 1st SUTF'C 
BASIC cane out. As you know, the data 
on the cassette is nothing More than a 
listing of the progran. This is true, but 
there are a few nore 'control characters' 
on the Uipe to help out. 

NULL Weill or nothing '00' or 'VF' 

used to fill space or tine. 
STX Start-of-text "02' 

used to signal that valid data will 

follow this character. 
ETX End-of-text '03*' 

end of valid daU for this block. 
CR Carriage-return '0D' 
IF tine-feed '0A' 

The fornat of the tape is; 
-EOT- signal 1 character nane follows. 

X 1 character user supplied nane. 
-STX- indicate start of real data line, 
X 4 digit line nunfcer 
X text portion of line 
-CR- carriage-return/line terninator 
-IF- line feed 

-NULL- tifte delay - the nunber of nulls 
varies fro* version to version, 
this "tine delay" is used by the 
interpreter to 'digest' the line 
and convert it into it's internal 
format. 
-STX- next line 



-CR- 
-LF- 
-ETX- 



indicates end of this BASIC program. 



Sone of the versions have a set of nulls at 
the be$inninq, and the end. The early 
versions of SUTPC used '7F' for the null, 
which ««ant you could 'see' then on the 
AC-30 LED's. The SUTPC versions use 4 
nulls as the tine delay, while the 
Cohputeruare version uses only 2. 
Another interesting point is the LET verb. 
The SUTPC versions just output it if it 
is in the source..., LET A=1 . 
But, if it is not there, a '08' is put 
on the tape to indicate the implied LET. 
Conputerware BASIC always outputs a LET, 

even if it is not in the source 

10 A-1 is written 10 LET A-i. 



Reprint fro* '4800 BITS' 

Chicago Area 6600 Newsletter 

Phil Schuitan, Editor 
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5-1/4" Minidisk — Soft or Hard Sector 
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SOCJTH EAST MEDIA SUPPLY 

6131 Airways Blvd. 615-892-1328 

Chattanooga, TN 37421 
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H H H ENTERPRISES 

Box 493, Laurel Md» 
20810 301-953-1155 



'SPIRIT 4 IS NOW AVAILABLE. 

SPIRIT was called 'fourth' in our previ- 
ous addt and has been renamed to reduce 
confusion. SPIRIT is a FOURTH (TM) like 
language with a built in dictionary of over 
200 words. It is stack oriented and in normal 
use you would continue to define new 
'words' that are immediately compiled to 
become part of the language. Smoke disk (5 
or 8) only, at the moment, and includes a 
large manual. It is available by mail or phone 
order and dealer inquiries are invited. 

It also lends itself very nicely to using 
those extra chapters of memory that are 
accessed by the GIMIX ghostable 16K 
boards. 

'Get into the SPIRIT folks.' Priced at 
$69.95, Visa & Mastercharge OK. 





See GIMIX Ad. Page 3 



Don't forget our Super Starter System: A 
Gimix box, 16K of ram, I/O card, Documen- 
tation, Keyboard, Monitor, GMXBUG 2.0 & 
64X16 memory mapped video board for 
only $1844,29. For dual Smoke disk add 
$1000. 

Prom burners special: 1 ea., 4KPPD (a 
4K prom bd and a mass prom burner), 1 ea., 
8KPBD (an 8K prom bd) & 10 ea., 2708s for 
only $348.30. 

Disk Special, subject to supply limita- 
tions, 5 inch, dual drive, DOUBLE SIDED, 
Smoke Signal Broadcasting, only $1300. 

'FOURTH' is a trademark of FOURTH 
INC. 



JPC PRODUCTS FOR 

6800 



COMPUTERS 
SWTPC and MSI 



W\D-16 DATA ACQUISITION -69.95^ 

•16 CHANNEL precision analog input board. 

•VERSATILE • supports individual channel 
programmable gain. 

•ACCURATE - 0.39% resolution with less than 
0.70% total conversion error. 

•FAST - more than 3300 samples per second. 
•SOFTWARE - included with documentation. 



^■TC-3 CASSETTE INTERFACE • 49.95V 

•FAST - 4800 Baud Loads 4K in 8 Seconds! 
•RELIABLE - Error Rale Less Than 1 in 10* BYTES. 
•CONVENIENT - Plugs Directly Into The 
Motherboard. 

•PLUS - Read and Write Kansas City Standard 
m Formal at 300 Baud. 

\ / 



•CFM/3 SOFTWARE - 19.95- 



•CASSETTE OPERATING SYSTEM for the TC-3 
cassette interface. 2K memory required. 

•FILE MANAGER supports named files* load, save, 
run, find, list, move, dir. . etc. 

•BASIC, ASSEMBLER and EDITOR can now 
support named files through the file manager. 

•OPTIONAL CFM/3 on cassette - 6.95 additional. 



[•MX-6 



MX-6 - main board extender - 119.95 

BT»9 - bus terminator * eliminate bus noise • $9.95 



) 



"Designed By Professional* For OuUUodlug Performance 



r\ 



^J PC products* 



P.O. BOX 5615 
ALBUQUERQUE. N.M. 8718$ 

filttl 2<l*-teU 
M»l)t?.iKirKli<H<J}KM 
i*uit Miirrirvt; « HANDLING 
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ADVANCED 6800 SOFTWARE 



CP/68™ OPERATING SYSTEM 



PIP Peripheral Interchange 
Program Transfers Data 
Between Physical Devices 
Wildcard Filenames and Exlensions 
• Relocatable Anywhere in 
Memory 

Extended instruction Sel 
Includes 6809-lype Instructions 
(PSHX. PULX, ere) 



($1^9.95) 



• Complele Device-Independent I/O 

• Random and Sequential Files 

• Fits in Less Than 8k 

• Chaining and Overlaying 

• Single Supervisor Call Furnishes 
All DOS Services 

• Easily Inlerfaced to New 
Devices and Peripherals 

• Dynamic File Allocalion 



STRUclured BAsiC Language (STRUBAL+™) COMPILER 
for both business and science uses 



($2^9-95) 



• Variable Precision From 4 to 
14 Digils 

• Structured Programming Forms 

• Produces Relocatable and 
Linkable Code 

• COMMON and DUMMY Sections 



• Extensibility 

• String Handling 

• Full Scientific Package 

• Dala Slruclures with 
Mixed Data Types 



LNKEDT68™ LINKAGE EDITOR 



Link and Relocate Files 
Produced by STRU8AL + or 
RA6800ML Macro Assembler 
Two-Pass Disk to-Dtsk 



($^9>95) 



• Libraries ol Relocatable 
Files Can be Searched 

• Extensive Listing Outputs 



Produces a Cross-Reference 
Listing of the XREF File 
Produced by STRUBAL+ or 
RA6800ML Macro Assembler 



XREF68™ 

($29-95) 



• Alphabetic Listing of Every 
Symbol in a Source Program 
Followed by the Line Number 
of Every Reference 



RA6800MLD'" MACRO LINKING ASSEMBLER 



• Full Macro Facilities 

• COMMON Section lor the 
Produclion of ROMabie Code 

• Condilional Assembly 



($79.95) 



• Generates Linkable and 
Relocatable Code 

• Sorted Symbol Table Listing 

• Hash-coded Symbol Table 
for Speed 



EDIT68™ TEXT EDITOR 
($39.95) 



Change. Delete. Replace 

Texl Globally 

► Powerlul Macro Facilities 
» Supports Horizontal Tabs 

Versions are available tor Percom. (COM. Smoke Signal and SWTPC systems 



• Diskto-disk Edit Accomodates 
File of any Length 

• Find a Character or Character 
String 

• Block Moves ol a Line or Lines 



HEMENWAY ASSOCIATES, INC. 

101 Tremont St. Suite 208 

Boston, MA 02108 

(617)426-1931 
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SURPLUS ELECTRONICS 



ASCII 




ASCII 



WITH FLEX DRIVERS (ft 
IBMSELECTRIC 
BASED I/O TERMINAL 
WITH ASCII CONVERSION 
INSTALLED $645.00 

• Tape Drives • Cable 

• Cassette Drives • Wire 

• Power Supplies 12V 15 A, 12V25A, 
5V35A Others, • Displays 

• Cabinets • XFMRS • Heat 
Sinks • Printers • Components 
Many other items 

Write for free catalog 
WORLDWIDE ELECT. INC. 
130 Northeastern Blvd. 
Nashua, NH 03060 
Phone orders accepted using VISA 
or MC. Toll Free 1-800-258-1036 
In N.H. 603-889-7661 



Al^I^AJmEPHONE 
{ *%$0t ] VWITHBYTE! 



6800 AUTOMATIC TELEPHONE DIALER 
PROGRAM $9.95 postpaid 

Have your &600 syslem dial your phone • Uses 
only 5 external components • 5lores 650 variable 
lengih phone numbers • Operates in less lhan IK 
byles of memory 

Includes: Paper Jape m Mikbug* formal and ob- 
ject code • Circuit diagram and instructions 
• Instructions for adapting to other 680t systems 

6800 TELEPHONE ANSWERING DEVICE 
PROGRAM $4.95 postpaid 

J lave your 6800 syslem answer your phone and 
record messages automatically. Compatible with 
any 6fl#0 system, 

Includes; Assembly h'sling and object code • Cir- 
cuit diagram and instructions 

Write to: SOFTWARE EXCHANGE 
2681 PETERBORO 
W. BLOOMFIELD, MICH. 4S033 



MJfcbug 1 1 
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MIXER 

SMOKE -SIGNAL DISK USERS 

RUN MIXED 8 AND 

5 INCH DRIVES 

The DM-85 Disk Mixer is an add-on 
board for the Smoke Signal Broadcast- 
ing BFD-68A Disk Controller which 
allows operation of both 8" and 5" 
drives. Controller mode (8" or 5") is 
selected on a drive-by-drive basis, so 
any mix of 5" and 8" drives is allowable. 
The 2" x 3" PC board mounts incon- 
spicuously on the back of the BPD-86A. 
Its operation is completely transparent 
to software. An oscilloscope is required 
for the setup procedure. Kit Price: 
$39.95. 



THf 



WORKS' 



Master Charge 

and 
BankAmerlcard 



P.O. BOX 1 1 10. DEL MAR, CA9201 4 [71 4] 75B-26B7 




G800 OWNERS 

At last a real world fully addressable SS-50 
control interface. Control robots, appliances, 
organs, solar devices, etc. Applications limited 
only by your imagination. Easy to use with ma- 
chine language as well as basic. Fully buffered 
board plugs directly onto mother board and re- 
sponds to any address defined by user 8 fast 
relays latch data while 6 opto-isolators atlow 
handshaking capacity Kjt $98t0 

Assembled and tested $125.00 

EXTENDER BOARDS 

Extend both the 30 and 50 pin buses in SWTP 

Both for $19.95. 
Vtsa & Master Charge • An* Res add 9% Sates Ta* 
WRITE FOR DETAILS 

TRANSITION ENTERPRISES INC. 

Star Route, Box 241, Buckeye, AZ 65326 
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SUPER 
SOFTWARE! 

MICROWARE 6800 SOFTWARE JS_ 
INNOVATION AND PERFORMANCE 



(HE2Q LISP Interpreter 



I NEW I 



MICROWARE 

STOTKMS CXMiroKATJON 



P.O. BOX Wft5 

DEB MOINES. IA 60004 
(619) 26 -6121 



The programming language LISP offera exciting new possibilities for 
microcomputer applications, A highly interactive interpreter lhai uses 
hsMype dai« structures which are Simultaneously daia and executable 
Inairuciions, LISP features an unusual siructured, iscursive funchon* 
orienied ayniax Widely used for processing, art Metal intelligence, 
education. ilmulaiioo and computer-aided design, 680C LISP requires 
a minimum of 12K RAM 
Price 675.00 

A/BASIC Compiler 

The ever. growing A/BASIC family Is Ihrealening old-fashioned 
assembly language programming In a big way This 6ASIC compiler 
generates pure, fast, affiant 6600 machine language from easy lo 
write BASIC source programs Usea ultra-fast imager matfi. extended 
strmg funcliona, boolean operaiors and reaMrme operations Ouipul Is 
ROMablo and RUNS WITHOUT ANY RUNTIME PACKAGE. Disk ver- 
sions have disk t/0 stalemenis and require 12K memory and host DOS 
Cassette version runs in 6K and requires RT/66 operating system 
Price; Ota* Extended Version 2 1 $150 00 
Cassette Version 1 665.00 



iTJEWI A/BASIC Source Generator 

An "add-on" option for A/BASIC Compiler disk versions lhai adds an 
extre third pass which generates a full a isamWy- language ouiput 
listing AND ssembty language source file Uses original BASIC names 
end Inserts BASIC source Unea as comments. SSB and SWTPC 
Mmlffex version evaileble 
Prlcac 660.00 

A/BASIC Interpreter 

i super- 1 

wlih our A/BASIC compiler! Now you cen interactively edit, execute 
and debug A/BASIC programa with ihe ease of an Interpreter— then 
compile to super ettlcleni machine language Also a superb stand- 
alone applicaiiona end control oriented interpreter Requires 6K RAM 
The caasette version Is perfect lor Motorola D2 Kits. 
Price: 675 00 

RT/66 Real Time Operating System 

MIKBUG— compatible ROM lhat combines an Improved monitor/ 
debugger wllh a powerful multitasking real-time operating system 
Supports up to te concurrent tasks at 6 priority levels plus real time 
clock and Inierrupi coniroi, Thouaanda in use aince 1976 handling ail 
lypes of sppilcatlona. Available on 6630 (MIKBUO-I pe) or 2706 
(EPROM'typel ROM. Manual IS a claasic on 6800 reaUllma applications 
and contains a full eource program listing 
Pric : RT66MX (6630) 65600 
RT66MXP {2706) 666.00 

6800CHESS 

A challenging chess program for the 6 00 Two selectable difficulty 
levels Displays formatted chess board on atanderd terminals. Re- 
quires 8K memor . Machine language wlih A/BASIC source listing 
Price: 560 00 

ELIZA 

6800 version of the lamoua MIT art! tclal intelligence program. The 
computer assumaa the role of a psychoanalyst and you are the patieni 
This unusual program Is unique because the dialog with the com- 
puter Is In unstructured plain Enguah. An Impressive demonstration 
program. 
Prior. 630.00 



Ol* aoftww* il «M<UM« for rrx 
unlwa ottwvttt rtotoO Otofc wttwi nauM on S3 6. SWTPC. or Uotorota 
'DOS **!•«• ipMfy wrutti you riqji;t Prxjrn Or d#r« if* w**Com*d W« Bt»p< 
fc ASTEACHARGE *mi VISA W« try lo i*up ofd*ri wflhin 2* noun of r*cwpt 
PIMM ceil Of wrile a you r*ojuir« **Onkxv»J IrrformMlon or Our trw dialog 
Mfctowora lofhrer* it tuwUbto for OEM irttf codo*) ■pp4ic»U©r». 
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<£- The only ALL 6600 Computer Magazine. 
<£ More) 6800 material than ail the others com- 
bined: 

MAGAZINE COMPARISON 

(2 yean) 

Monthly Averages 

6800 Articles 



KB 

7.8 



TOTAL 
PAGES 



BYTE CC OOBB'S 

6,4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $5.88 

(Based on advertised 1-year subscription price) 

'68 1 cost per month: 88£ 

($10.50 Charter Subscription Rate) 

That's Right! Much, Much More 

for 

1/6 the Cost! 

CHARTER SUBSCRIPTION SPECIAL 

1-Year $10.50 2 Years $18.50 3 Years $26.50 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge Q — VISA □ 

Card # Exp. Date 



For □ 1-Year □ 2 Years 
Enclosed: $ 



□ 3 Years 



Name- 



StreeL 
Clty 



.State. 



_Zip_ 



My Computer ls:_ 



68 MICRO JOURNAL 
3018 Hamlll Road 
HIX80N, TO 37343 

Foreign surface add $9*50 per year. 
Foreign Air Mall add $29.00 per year. 




jscffiaa^ 
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GOOD DEAL EXTENDED! 
PRICES SHOWN ARE FOR ORDERS RECEIVED BY JUNE 30 

NORMAL PRICES APPROX. 10% HIGHER . . . CALL FOR DEALER, OEM, AND GROUP PRICING 



■ B 8 B ffl 
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SS-50 VIDEO RAM 

Fully Synchronous Operation to Eliminate Jitter 
Full 128 Set of 7 by 9 Characters & Reverse Image 
1K ol Memory can be Mapped in any 1K Increment 
10 Pages of Documentation Including Software 

ASSEMBLED $135.00 
CARD, CRYSTAL, & DOC $35.00 



SS-50 PARALLEL I/O 

• 2 Ports Expandable to 10 (Just Add PIA'S @ $6,95 ea ) 

• Each Pon has 8 I O Plus 2 Control 100 1 O Lines . 

• Large Regulator Supplies Power to I O Connectors 

• Board Can be Mapped to any 32 Word Boundary 

ASSEMBLED (W/1PIA) $89.00 
CARD ONLY $32.00 




SS-50 SUPER CPU 

SS-50 Buss or Stand Alone Computer 

1 K of Ram at $A000, I/O on Board at $A400 (Relocatable) 

2K Monitor in 2708 Eprom (Expandable to 4K) 

2 Parallel 8 bit ports with 2 Control Bits and Power 

1 RS-232 ACIA Port (Expandable to 2nd TTL AC I A) 

3-16 Bft Counter Timers (Expandable to 6 Add 2nd 

6840) 

Additional 128 Byte Ram at 0000 can be Jumpered out 
Battery Back-up Available on 32 Bytes of Ram 
Back/Back with other SS-50 Cards to Make Small Systems 

ASSEMBLED (AS SHOWN) $179.00 
CARD ONLY $44.00 



Gimix 16K Without Soft Addressing $298.13 

Gimix 16K Static Ram W/Softadd $368.16 

Our SS-50 Wire-Rap Card $24.00 

3, 4, and 7 slot SS-50 Backplanes 

We also Make Non SS-50 Single Board 6800 Sys. 



We have been in business for over 8 years, designing 
industrial machine tool controls and monitors . . . Call us 
for help with your product or laboratory instrumentation 
problem ... we are dealers for: 



GIMIX SWTPC SSB 

• LET US QUOTE YOU A PACKAGE PRICE 



THOMAS 
INSTRUMENTATION 

2709 Dune Drive, Avalon, N.J. 08202 
Phone (609) 967-4280 
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Advanced Disk Operating and File Management System tram PERCOM 



INDEX" 

(INterrupt Driven Executive) 
only $99.95 




A fast, adaptable disk operating program for 6800 computers featuring: 



Fas execution — I/O devices are seiviced by interrupt re- 
quest. Eliminates polling time. 

Adaptability — I/O devices and peripherals are accessed the 
same as disk files. New devices may be added without chang- 
ing the operating system. 

Versatility— An unlimited number of DOS commands may be 
added. Over 60 system entry points for program linkage 
provided. 



System savings — INDEX™ and user-added commands and 
routines are disk-resident. No need to add memory for pro- 
gram enhancement. 

Optional 108-page Advanced Programmer's Guide: l/Odrivers 
& examples. describes system entry points, etc. .-.$45.00 

Versions of INDEX™ are available for the PERCOM LFD-400'*, 
SWTP MF-68 and Smoke Signal Broadcasting Company's 
BFD-68 disk systems, and for Motorola's EXORciser™ develop- 
ment system . 



INDEX 1 " handles both ASCII and bi- 
nary files, and disk files are automati- 
cally created, allocated and de- 
allocated. 

Files are referenced by names — of up 
to eight characters — and file name 
parameters are addended for name ex- 
tension (to further define the file), drive 
number, directory level and a file pro* 
tection flag. 

The INDEX 1 * operating system 
software also features a versatile 
BACKUP routine for copying files onto 
a diskette. 



Console Interface Software 

The console interface segment of 
INDEX" software supports any stan- 



dard serial ASCII terminal, and fea- 
tures: 

• Program Interrupt (vs. Reset) for 
runaway programs. 

• Operator Start, Stop and Skip dis- 
play oontrol. 

• An interrupt-serviced, type-ahead 
character-queue buffer. 

• A secondary lire editing queue 
buffer. 

INDEX™ Commands 

Commands are given to INDEX™ a 
line at a time. Processing begins when 
the Return key is struck. The type- 
ahead character-queue buffer ailows 
the operator to input a command while 
the previous command is being exe- 
cuted. A character may be deleted and 
corrected with the Backspace (Control 
H) key, and a line may be cancelled 



with the Rub-Out key. In addition to 
the following commands, the user 
may add any number of his own 
commands. 

BACKUP • CONVERT • COPY • 
COUNT • DATE • DELETE • DIRectory 
• DISKEDIT • DISKINIT • EXAMINE • 
FILL • HELP • RENAME • SAVE • 
SETSTART • SETVERSION • SYS- 
DISK > TYPE • USERDISK 

System Requirements 

System requirements are as follows: 

1 . 8K RAM at address $A000 — 
$BFFF 

2. Minimum of SK RAM beginning at 
address $0000 

3. ACIA console interface (SWTP 
MP-C interface) 

4. SWTBUG™ or equiva'ent monitor 
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PERCOM DATA COMPANY, INC, 
DepL 68 211 N. Kirby Garfand. TX 75042 
{214)272-3421 



How to Get Your INDEX™ Software 

INDEX™ is supplied on two mini-diskettes together with a Users 
Manual for $99.95, and may be ordered from PERCOM by dialing, 
toll-free, 1-800-527-1592. In addition to checks and money orders, 
Visa and Master Charge credit cards are honored, Texas residents 
add 5% for sales tax. 
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SMOKE SIGNAL BROADCASTING 
PRESENTS IPS 

$299.00 

M-16A STATIC MEMORY SYSTEM 

• Allows SWTPC 6800 expansion to 48K 

• Low Power • Uses Single +8 Volt Supply 

•SWTPC 6800 Plug Compatible •STATIC - No refresh required 



ANT 1&k+ 



The M-16A STATIC random access 
memory system, with a total storage capacity of 
16834 words of 8 bits each, 
is switch selectable to any 4K 
starting address, and a hardware 
write protectswitch is also included. 
The system's storage elements are 
4K by 1 STATIC memory chips 
which store 4 times as much in 
lonly 12% more space than the low I 

power 2102's. Typical access time is fast enough to work a 
6800 based computer operating at 2 MHz and all systems 
are factory tested at 2 MHz. 
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31336 Via Colinas, Westlake Village, CA 91361, <213) 889 9340 
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,SM0KE SIG1IAL^BB0ADCASTI1I6P 

31336 Vn CbtiriBt, Wtollaki V. II tot. CA 91361 
<?l3>e&94940 

LJ Send information on your M-16A 
LJ Send name of nearest dealer 
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For your SWTP 6800 Computer . . . 

PERCOMV 
FLOPPY DISK SYSTEM 

the 



mm 




Ready to plug In and run the moment you receive 
\L Nothing else to buy, no extra memory. No 
"booting" with PerCom MINIDOS-PLUSX-, the 
remarkable disk operating system on EPROM. 
Expandable to either two or three drives. 
Outstanding operating, utility and application 
programs. 
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To order 

or request 

literature 

call Percom 

toll-free 
1 800 527-1592. 




fully assembled and tested 
shipping paid 



For the low $599 95 price, you not only get the disk drive, drrve power 
supply, SS-50 bus controller/interface card, and MINIDOS-Pi.USX^, 
you also receive 

• an attractive metal enclosure • a fully assembled and tested inter- 
connecting cable • a 70-page instruction manual that includes operat- 
ing instructions, schematics, service procedures and a cumpMe list- 
ing of MINIDOS'* • technical memo updates — helpful tents which 
supplement the manual instructions • a 90- day limited warranty. 

SOFTWARE FOR THE LFCM00 SYSTEM 
Diak operating and flla management ayatama 
INDEX"* The most advanced disk operating and fife management 
system available lor the 6800 INlerrupt Driven Executive operating 
system features flle-and-devlce-lndependent, queue-buffered 
character stream I/O. Llnked-file disk architecture, with automatic file 
creation and allocation for ASCII and binary files, supports sequential 
and semi-random access disk files Multi-level fila name dtrecloiy 
Includes name, extension, version, protection and date, Requires 8K 
RAM at SA00O Diskette includes numerous utilities $99 95 

BASIC Interpreters and Compilers 
SUPER BASIC A tOK extended disk BASIC Interpreter for the 6800 
Faster than SWTP BASIC Handles data files Programs may be 
prepared using a text editor do.rited below $49 95 

BASIC BAND AID*- Turn SWTP 8K BASIC kilo a random access data 
fife disk BASIC Includes many speed improvements, and program 
diskCHAINtng $17 95 

STRUBAL+™A STRUctured 0As*c Lar>gua^ compiler for the pro- 
le&sjona) programmer 14*dkjrt floating point, stings, scientific func- 
tions 2*d<meflSK>nal arrays Requires 20K RAM and Linkage Edrtor 
(see bekjw) Use of the fo&owtng text eddws to prepare pro-ams 
Complete with RUN-TIME and FLOATING POINT packages $249 95 

Text Editors and Processors 
EDIT68 Hemenway Associates powerful disk-based text editor. May 
he used k> create programs and data files. Supports MACROS which 
perform complex, repetitive edtting functions Permits text files larger 
than available RAM lo be created and edited $39 95 

TOUCHUP" Modifies TSCs Text Editor and Text Processor for Per- 
Com disk operation ROLL lunctfon permits lext files larger than 
available RAM to be creeled and edited Suppled on diskette com- 
plete with source listing $ 1 7 95 

Assemblers 
PerCom 6800 SYMBOLIC ASSEMBLER Specify assembly options 
at lime of assembly wilh this symbolic assembler. Source listing on 
diskette $29 95 

MACRO-RELOCATING ASSEMBLER Hemenway Associates 
assembler for the programming professional Generates refocatabte 
linking object code Supports MACROS Permits conditional 
assembly $79 95 

LINKAGE EDITOR - for STRUBAL + ™ and the MACRO-Reloceling 
assembler $49 95 

CROSS REFERENCE Utility program that produces a cross* 
reference listing of an input source listing file $29 95 

Business Applications 
GENERAL LEDGER SYSTEM Accommodates up to 250 accounts 
Financial information immediately available — no sorting required 
Audit trail information permits tracking from GL record data back to 
source document User defines account numbers $199 95 

FULL FUNCTION MAILING LIST 700 adckesees per diskette Power- 
ful search, sort create and update capability $99 95 
PERCOM FINDER*" General purpose Information retrieval system 
and data base manager $99 9$ 
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Nowf The LFO-800 and IF D- 1000, Add one, two or three 
LFD-800 drives and store 200K bytes per drive on-line. Add 
one or two (dual-drive) LFD-1000 units and store 800K bytes 
per twit on-line. Complete with interlace/controller. DOS. 
cable & manuals Two-drive systems LFD-800 — S1549. 
LFD-1000 — $2495 



PERCOM 'peripherals for personal computing' 



J 



i 






*.*—. 



